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MEET SARGON 


SARGON is a computer chess program by Dan and Kathe Spracklen. In March 1978 
it took first place in the first chess tournament held strictly for microcomputers. The 
tournament took place during the 2-1/2 days of the 1978 West Coast Computer Faire 
and drew large crowds each day. When the last battle ended, SARGON had won 5 
games of 5 played. A tie existed for second place, with 3 programs scoring a total of 
3 points in the 5 rounds. 


SARGON is written in Z-80 assembly language using the TDL Macro Assembler. The 
program occupies 8K of RAM, which includes 2K of data areas, 2K graphics display 
and user interface, and 4K move logic. The move logic is the heart of SARGON. It is 
displayed in the block diagram as the set of routines called by FNDMOV (Find 
Move). FNDMOV controls the search for the computer's best move by performing a 
depth first-tree search using the techniques of alpha beta pruning. Listed first under 
FNDMOV's calls on the block diagram is PINFND (Pin Find Routine). PINFND 
produces a list of all pieces pinned against the king or queen for both white and 
black. Pinned pieces must be treated carefully when analyzing battles engaged on 
the chess board, since their attacking power may be an illusion. FNDMOV also calls 
POINTS (Point Evaluation Routine). POINTS performs a static evaluation and derives 
a score for a given board position. POINTS takes factors of material, board control, 
and development into account. Predominant in the evaluation is material. Material 
scores must be adjusted to reflect unresolved battles on the chess board. It is the 
function of XCHNG (Exchange Evaluation Routine) to judge the outcome of these 
unresolved battles. The factors of development and board control are not allowed to 
dominate the move choice. LIMIT is called to truncate the contribution of those 
factors to the score. 


FNDMOV controls the generation of legal moves by GENMOV (Generate Move 
Routine). GENMOV produces the move set for all of the pieces of a given color. For 
each piece in turn, GENMOV calls MPIECE (Piece Mover Routine), which generates 
all the possible legal moves for a given piece. MPIECE itself calls a series of 
routines. PATH generates a single possible move for a given piece along its current 
path of motion. ADMOVE adds a move to the move list. CASTLE and ENPSNT (En 
Passant Pawn Capture Routine) handle the special moves. After MPIECE has 
produced all legal moves, GENMOV calls INCHK, which determines whether or not 
the king is in check. 


Basic to the success of alpha beta pruning is the sorting of moves generated at each 
ply level. FNDMOV calls SORTM (Sort Routine) to accomplish this task. A sort is 
dependent on an evaluation, so SORTM calls EVAL (Evaluation Routine). To evaluate 
a given move on the move list, E VAL first makes the move on the board by calling 
MOVE. It is determined if the move is legal by calling INCHK. Then, if the move is 
legal, it is evaluated by calling PNFND and POINTS. Finally, EVAL restores the 
board position by calling UNMOVE. 


The bookkeeping required by alpha beta pruning is for the most part coded in line in 
FNDMOV. However, FNDMOV calls ASCEND (Ascend Tree Routine) to adjust all the 
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parameters in transferring the parameters up one ply in the tree. 


At the bottom of FNDMOV's call list on the block diagram is BOOK. BOOK provides, 
an opening book of a single move. Ifwhite, SARGON will play P-K4 or P-Q4 at 
random. If black, SARGON replies to any opening move with P-K4 or P-Q4, 
whichever is most appropriate. 


The move selection logic of FNDMOV is embedded in a whole network of routines 
that forms SARGON's interface to the outside world. The DRIVER routine initiates 
and coordinates, the entire game. First on the block diagram in DRIVER's list of calls 
is CHARTR (Accept Input Character). CHARTR is a totally machine-dependent input 
routine whose sole purpose is to accept a single character input from the keyboard. 
All machine-dependent aspects of SARGON have been isolated in this manner to 
simplify conversion to Z-80 machines running under different operating systems. 
Machine-dependent code appears in only two other places. The first is the macro 
definition area, where all the output functions are listed, and the second is in the 
routine DSPBRD (Display Graphics Board and Pieces), where machine-dependent 
lines of code are clearly marked. 


Next on the block diagram is ANALYS (Set Up Position for Analysis). ANALYS allows 
the user to set the board to any position of his choosing. The routine blinks the 
graphics board squares in turn, allowing the user to input a piece ofhis choice or 
leave the contents unchanged. When the board has been set to the desired 
arrangement of pieces, play of the game may be resumed. ANALYS also provides a 
handy means of correcting a move entered by mistake. 


As a part of game initialization, DRIVER calls INTERR (Interrogate for Ply and 
Color). INTERR questions the player for his choice of white or black, and allows him 
to select the depth of search. DSPBRD and INITBD complete initialization by setting 
up the graphics board display and internal board array. PGIFND (New Page if 
Needed) and TBCPCL (Tab to Computer's Column) are used to control spacing in the 
move list. The move list is displayed to the left of the graphics board on the video 
screen. 


The most important routines called by DRIVER are, of course, CPTRMV and 
PLYRMV, which are control routines for the computer's and player's moves, 
respectively. Central to CPTRM V is FNDMOV, the logic to select the computer's 
move, which has already been discussed. Below FNDMOV on the block diagram is 
FCDMAT (Forced Mate Handling). If the computer is checkmated, it acknowledges 
the fact with a message displayed in the move list and by tipping over its king. 
Assuming the computer is not mated, MOVE makes the chosen move on the board 
array and EXECMV displays it on the graphics board. In displaying the move, the 
piece first blinks a few times, moves to its new location, and then blinks a few times 
again. The function of BITASN (Board Index to ASCII Square Name) is to convert the 
internal move into a representation in algebraic chess notation on the move list, 
then INCHK determines whether or not the computer should call "Check." 


When the opponent is on the move, PLYRMV controls the events. It calls CHARTR to 
accept the move entry. ASNTBI (ASCII Square Name to Board Index) converts the 
move to internal representation. Then VALMOV checks the player's move for validity. 
If the move is legal, EXECMV displays it on the graphics board as in CPTRMV. 
PGIFND (New Page if Needed) aadTRPLCL (Tab to Player's Column) control spacing 
in the move list. 
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The Chess Board in Computer Graphics 


A graphics display is an eye-catching addition to a chess program. For the human 
player, a visual display of the board is far easier to relate to than a scheme which 
creates an array using purely alphabetic characters. Graphics display requires 
specialized hardware, and degree of resolution varies with existing displays. The 
SARGON program features a complete graphite board display. The video screen of 
the Jupiter III microcomputer, on which it is implemented, has a 96 x 128 dot 
graphics matrix. The screen display is controlled by a 2k area of static RAM. 
Information may be displayed on the screen by storing the desired values in that 2k 
area. So only moue instructions are required for graphics display. 


The SARGON display utilizes 96 x 96 dots for the graphics chess board. The 
remaining area is used to list the moves of the game in algebraic chess notation. The 
display is arranged as follows: 





The empty board and move list area are displayed using the block move feature of 
the Z-80. It requires no stored data. The memory required to store the piece shapes 
has been kept to a minimum through use ofthe concept of boundary and kernel dots. 
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Graphics Control 
On the Jupiter III System, every graphics byte is of the form: 
HY. Ys Yo Y; Yo 
where: 1 — Indicates a graphics character 


X— Is unimportant, may be 0 or 1 with no effect on the resultant 
graphics character. 





IF Yg — 1 IF Yo = Ф 
FY — 1 FY = 0 
IF Үр —1 IFY2— @ 
IF Ya —1 IF Ys = б 
IF ча 1 IFY4=Ø 
IFyg=t ІҒҮ5 -0 





Graphics Characters 


By varying and combining bits that are turned on, a total of 64 different graphics 
characters may be produced. For example: 


1010 0101 gives 
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Now, 1010 0101 = 165 in decimal, which can be used as the ASCII code for this 
character. 
Pillar and Bar Formatlnq 
We've seen how individual dots are grouped into blocks of six dots each. The blocks 


are then laid out like tiles to cover the display area. So a dot matrix that is 12 x 12 
would look like: 


Dot Column 


12 3 4 5 6 7? 8 "9-10 11.12 


— 


e 1 

3 

4 

5 e 

Dot Row й Block Bar 

8 3 

9 

10 

11 4 

12 





Block Pillar 
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CHESS PIECE SUMMARY 
Each square is 12 x 12 graphics dots, 
and 6 x 4 bytes. 


No piece affects the 1 byte pillar at each 
side of the square. So the true region 
involved is 8 x 12 dots or 4 x 4 bytes. 


Boundary dots are the color oppo- 
gite that of the square. 


Kernel dots are the color of the 
piece. 





The top left corner of a square is the 
norm of the square. 


80H — White square 
BFH — Black square 


It is also the base address of the square. 
Addresses of the alterable portions of 
the square relative to the base address 
are on the chart. The alterable portions 
of the square are referred to as the field. 





Field 


For each type of piece the tables on the following pages will give the piece 
shape and four field configurations: 


Black on White 
Black on Black 

White on Black 
White on White 


All field values are in hexadecimal. Only the black on white configuration is 
stored in the graphics data base. 
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KING 

Black on White White.on Black 

80 B8 90 80 BF 87 AF BF 
BC BA B8 94 83 85 87 AB 
AF BF BF 85 90 80 80 BA 
83 83 83 81 BC BC BC BE 
Black on Black White on White 

BF 87 AF BF 80 B8 90 80 
АЗ 85 АТ AB 9C BA 98 94 
9A BF 9F BA A5 80 AQ 85 
BC BC BC BE 83 83 83 81 

QUEEN 

Black on White White on Black 

90 80 80 90 AF BF BF AF 
BF B4 BE 95 80 8B 81 AA 
8B BF 9F 81 B4 80 AQ BE 
83 83 83 81 BC BC BC BE 
Black on Black White on White 

AF BF BF AF 90 80 80 90 
A8 9B B9 AA 97 A4 86 95 
B6 AF A7 BE 89 90 98 81 
BC BC BC BE 83 83 83 81 
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Black on White 


80 80 80 80 
8A BE BD 85 
80 BF BF 80 
82 83 83 81 


Black on Black 


BF BF BF BF 
B5 A1 92 BA 
BF AA 95 BF 
BD BC BC BE 


BISHOP 


Black on White 


80 Ad 80 80 
А8 BF BD 80 
82 AF 87 80 
82 83 83 80 


Black on Black 


BF 9F BF BF 
97 BE 96 BF 
BD 9B B9 BF 
BD BC BC BF 


White on Black 


BF BF BF BF 
B5 81 82 BA 
BF 80 80 BF 
BD BC BC BE 


White on White 


80 80 80 80 
8A 9E AD 85 
80 95 AA 80 
82 83 83 81 


White on Black 


BF 9F BF BF 
97 80 82 BF 
BD 90 B8 BF 
BD BC BC BF 


White on White 


80 Аб 80 80 
А8 81 А9 80 
82 А4 86 80 
82 88 88 80 
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Black on White 


80 BO BO 80 
BE BF BF 95 
A0 BF BF 85 
83. 83 83 81 


Black on Black 


BF 8F 8F BF 
89 AF BF AA 
9F B9 9F BA 
BC BC BC BE 


Black on White 


80 80 80 80 
80 A0 90 80 
80 AF 9F 80 
80 83 83 80 


Black on Black 


BF BF BF BF 
BF 9F AF BF 
BF 9A A5 BF 
BF BC BC BF 
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White on Black 


BF 8F 8F BF 
81 80 80 AA 
9F 81 BF BA 
BC BC BC BE 


White on White 


80 BÓ BO 80 
B6 90 80 95 
Аб 86 AQ 85 
88 83 83 81 


PAWN 


White оп Black 


BF BF BF BF 
BF 9F AF BF 
BF 90 AQ BF 
BF BC BC BF 


White on White 


80 80 80 80 
80 Аб 90 80 
80 A5 9A 80 
80 83 83 80 
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TOPPLED KING 


Black on White 


90 BO BO 80 
BF BF ВТ 80 
9F BF BD 80 
80 80 88 9D 


Black on Black 


AF 8F 8F BF 
A8 BF 89 BF 
A2 8F 86 BF 
BF BF B7 A2 





For any byte the 10 in bits 6 and 7 must remain. 
Boundary bytes are complemented if a piece moves to another color square. 


Kernel bytes must be moved in from a table in memory. Only one color need 
be stored, since the other color is the complement. For each piece, the kernel will 
be composed of 6 bytes to be transferred to base plus 41H, 42H, 43H, 81H, 82H, 
and 83H. Only the black on black values are stored in the graphics data base. 


Black on White on Black 


KING BC BA B8 AF BF BF АЗ 85 АТ 9A BF 9F 
QUEEN BF B4 BE 8B BF 9F A8 9B B9 Вб AF A7 


ROOK 8A BE BD 80 BF BF B5 A1 92 BF AA 95 
BISHOP А8 BF BD 82 AF 87 97 BE 96 BD 9B B9 
KNIGHT BE BF BF A0 BE BF 89 AF BF 9F B9 9F 


PAWN 80 Аб 90 80 AF 9F ВЕ 9F AF BF 9A А5 
Thus, the entire data base required for all pieces to be displayed occupies 
only 154 bytes of storage. 
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User's Guide to SARGON 


1. To begin execution: 


The start address of SARGON will vary depnding on the load address. It will 
always be the address of DRIVER. Once execution has begiun, SARGON will ask 
you a series of queations: 


"Welcome to Chess. Care for a Game?" 


To playa game of chess respond with "y." An answer of "n" will get you 
to the routine that allows you to set up a boats position. (See Item 5.) 


"Would you like to play white (w) or black (b)?" 


The player selects white by entering "w" or black by "b." Any other 
key defaults to black. White always moves first. 


"Select look ahead (1-6)," 


This allows the player to select the depth of search. For example, if you select 3 
ply, SARGON will consider: 


1. All of his possible moves. 

2. All of your responses to those move,. 

3. All of his possible replies to your responses. 
At this point, the boats display will appear on the screen. If you choose white, 
SARGON will be waiting for your move entry. If you choose black, SARGON will 
make its move on the board, print it in the move list, and then ..it for your move 
entry. 


2. To enter a move: 


Moves must be entered in algebraic these notation. This means you most tell 
SARGON the file and rank coordinates of the squares you are moving from and 
to. The files are lettered a-h and the ranks are numbered 1-8. So the 
coordinates of the board are: 
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a b с 4 e f g h 
ЕТТТ: 
„е e e 
eed 
| sonang 
засизенсизсизи 
ЙЕЗЕ 
BERRE] 
BERETTET: 


The move itself is entered as ff-tt so to play the king's pawn up two squares you 
would enter: 


"е2-е4" 
If SARGON responded with the same move, it would print: 
"e7-e5" 


Just enter the king's move. The rook will tag along. for example, if you are 
white and you wish to castle king's side, enter: 


"e1-g1" 


You will see both your king and rook move. When SARGON castles, he lists 
it as 0-0 or 0-0-0 as in normal chess notation. 


To Capture En Passant 


if you wish to capture one of SARGON's pawns using the en passant 
privilege, enter your pawn's move. After your pawn move is displayed, 
SARGON's pawn will blink and then vanish. When SARGON captures en 
peasant, his move is displayed on the graphics board in the same way. 
SARGON prints it in the move list as PxPep. 


3. To play another game after checkmate: 


If either your or SARGON is checkmated, and you wish to play againk just 
hit any key. The screen will blank out and SARGON will ask: 
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"Care for Another Came?" 


Replies to this question are just like those to the original l"Care 
for a Game?" 


. To resign a hopless game or take back a move: 


Ifyou decide your position is hopeless, or you wish to change a move 
entered in error, first wait until it is your turn to move. Then enter 
"control-R." You will immediately get the "Care for Another Game?" 
question. If you want to start over, type "y," but if you want to correct the 
board display, type "n." You will then get the routine that allows you to 
setup a board position. 


. To setup or correct a board position: If you typed "n". a "Care for a Game" 


question, SARGON will now ask: 
"Would you like to analyse a position?" 


If you answer "n" to this one, you will be out of SARGON entirely 
and back in the computer's monitor state. An answer of "y" will 
display the board just as you left it. The lower left-hand corner 
will blink. That, your signal that you can change the contents of 
that square, using one of the analysis commands. 


Summary of Analysis Commands 


<:CR> 

A carriage return leaves the contents of the square unchanged and blinks 
the next square. If you are already at the upper right-hand corner, it wraps 
around to the lower left-hand corner and blink, that square. 


Backspace 

A backspace leaves the contents of the square unchanged and blinks.. 
square in the other direction. If, the opposite of a <:CR>, so you can go 
either direction. 


0 
An entry of 0, or of the space bar, or any key not listed in these commands 
will empty the square. 


"Enter a Piece" 
To enter a piece, type in piece-code, color-code, moved-code. 


Piece-code is a letter indicating the desired piece (upper or lower case): 


K -- King 
Q -- Queen 
R -- Rook 
B -- Bishop 
N -- Knight 
P -- Pawn 


Color-code is a letter indicating the side the piece belongs to (also 


22/8/21 8:06 a. m. 


Firefox 


18 de 93 


https://web.archive.org/web/20070614114334/http... 


upper or lower case): 


w -- white 
b -- black 


Moved-code is a number indicating whether the Piece has moved or 
not: 


0 - Piece has never moved 
1 - piece has moved 


Some examples: 

To enter a black pawn on its original square type: 

"Pb,0" 

A white knight in the middle of the board would be: 

"№1" 

A black king on its original square which has however moved: 
"K,b,1" 


Escape 
The wscape key will terminate the blinking cycle. SARGON will ask: 


"Ts this right?" 


An answer pf "n" wo;; gp bacl tp setting up the board. If you say "y 
then SARGON will ask for information it needs to resume play from 
this point. The color chooice and search depth questions are the same 
as in Section 1. In addition SARGON must be given the answer to: 


"Whose move is it?" 


. To terminate execution: 


The way out of the SARGON program depend, on whether you're at 
the end of a game, in the middle of a game, or setting up a board 
position. 


At the end of a game: 


1. Depress any key. 

2. SARGON responds with: "Care for Another Game?" 

3. Answer with "n." 

4. SARGON responds with: "Would you like to analyze a position?" 
5. Answer with "n" and you're out. 


In the middle of a game: 


1. Wait until it's your turn. 
2. Enter "Control-R" 
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3. SARGON responds with: "Care for Another Game?" 
4. Follow 3-5 as for the end of a game. 
Setting up a board: 
1. Depress the escape key. 
2. SARGON answers: "R this right?" 
3. Respond with nswering four questions at once. 
4. Follow 2-4 as for the middle of a game. 


Notes on the Implementation of SARGON 


1. SARGON was assembled using the TDL Macro Assembler, which does not use 
the ZILOG mnemonics. Conversion to ZILOG mnemonic, can be performed on 
instruction for instruction basis using the conversion chart included with this 
listing. 


2. I/0 is based on the JOVE operation system which runs en the Wave-Mate Jupiter 
III computer. For ease in conversion all 1/0 has been isolated to the following 
areas: Accept Input Character (p. 82), I/O Macro Definitions (p. 68), and Set Up 
Empty Board (p. 89). 


3. SARGON must be loaded at a start address which is an even 256 byte page 
boundary (that is, at an address of the form XXOO hexadecimal). 


4. Graphics routines assume a 96 by 128 dot matrix with black characters on a 
white background. To convert to a display with white character, on a black 
background, only six lines of code need be changed: 


Location Is Change to 
0804 MVI М вон MVI M,OBFH 
DBO8 MVI M,OBFH MVI M,80H 


2 lines above IP04 JRZ IP04 JRNZ IP04 
4 lines above IP18 JRNZ IPIS JRZ IP18 
2 lines above IP18 JRNZ IP2C JRZ IP2C 


1 ше below IP18 JRZ IP2C JRNZ IP2C 


5. SARGON requires a minimum of 8K bytes of memory available for user 
programs. 


Image of page 19 for reference 


„жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


SARGON 


; Sargon is a computer chess playing program designed and coded by Dan and 
; Kathe Spracklen, 

; Copyright 1978. All rights reserved. No part of this publication may be 

; reproduced without the prior 

; written permission. 


„жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; EQUATES 
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ХЕЕЕ ЗЕ ЕЕЕ Е ЖЕ ЕЖЕ ЖЖ ЖЖ ЖЖ ok ok ee ЕЖЕ jo Jo ЕЖЕ УЖЕ ЖЕ ЕЕЕ ЕК Ж ЕЕЕ 


PAWN 


- 1 
KNIGHT = 2 
BISHOP - 3 
ROOK a 4 
QUEEN = 5 
KING - 6 
WHITE - 0 
BLACK  - 80H 
BPAWN - BLACK+PAWN 


y ЖЖ ЖАК ek eo SK ke Xo Kok ok KR ook So ЖЖ ЕЖЕ Rok eo ЕЕЕ ЗЕ ЖЭК OK eek KRKK KE SKK OK OK 


; TABLES SECTION 


т ЖӘ ЖЭК ЕЕ ЕЕЕ HE EE ЖЕКЕ A ЕЕЕ ЖК ЕЕЕ oko ok REE ЕЕЕ ЖЖ ЕЖЕ НЕЕ ACR Ж ЕЖ ke nee 


START 
.10С START+80H 
TBASE = START+100H 


y ЖЖ Е ЕЕ ЕЕЕ Е Е ICE ACE AR Е ЖЖ ЕЕ xo ko ОЗЕ IG PG koe ook eG КЕЯ looo ok RE A ЖК ЗЕКЕ 


; DIRECT -- Direction Table. Used to determine the direction of movement of 


; each piece. 
МЕЗЕ Е ЕЕЕ ЗЕ Е AS HEE xo ko PEE ko ананасы ва 


DIRECT - . - TBASE 
.BYTE +09,+11,-11,-09 
„ВУТЕ +10, -10, +01, -01 
.BYTE -21,-12,+08,+19 
.BYTE +21,+12,-08,-19 
.BYTE +10,+10,+11,+09 
.BYTE -10,-10,-11,-09 
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р жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
; DPOINT -- Direction Table. Pointer. Used to determine. 
; where to begin in the direction table for any 

; given piece. 

Н жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
ОРОТМТ = . - TBASE 


.BYTE 20,16,8,0,4,0,0 


р жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; DCOUNT -- Direction Table Counter. Used to determine, 

; the number of directions of movement for any 

; given piece. 

р жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

DCOUNT + -TBASE 

.BYTE 4,4,8,4,4,8,8 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

; PVALUE -- Point Value. Gives the point value of each 

; piece, or the worth of each piece. 
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® жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


PVALUE - .-ТВА5Е-1 

.BYTE 1,3,3,5,9,10 

а жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
; PIECES -- The initial arrangement of the first rank of 
; pieces on the board. Use to set up the board 

; for the start of the game. 

р жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
PIECES = .-ТВА5Е 

.BYTE 4,2,3,5,6,3,2,4 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


BOARD -- Board Array. Used to hold the current position 
of the board during play. The board itself 
looks like: 
FFFFFFFFFFFFFFFFFFFF 
; FFFFFFFFFFFFFFFFFFFF 
р FF0402030506030204FF 
| FF0101010101010101FF 
+ FF0000000000000000FF 
Р FF0000000000000000FF 
В FF0000000000000060FF 
+ FF0000000000000000FF 
: FF8181818181818181FF 
; FF8482838586838284FF 
; FFFFFFFFFFFFFFFFFFFF 
В FFFFFFFFFFFFFFFFFFFF 
; The values of FF form the border of the 
; board, and are used to indicate when a piece 
; moves off the board. The individual bits of 
; the other bytes in the board array are as 


; follows: 

А Bit 7 -- Color of the piece 
А 1 -- В1аск 

] 0 -- White 


, Bit 6 -- Not used 
а Bit 5 -- Not used 
Ч Bit 4 --Castle flag for Kings only 
; Bit 3 -- Piece has moved flag 
: Bits 2-0 Piece type 
1 -- Pawn 
2 -- Knight 
3 -- Bishop 
р 4 -- Rook 
5 -- Queen 
6 -- King 
; 7 -- Not used 
; 0 -- Empty Square 
р жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


BOARD - .-TBASE 
BOARDA: BLKB 120 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; ATKLIST -- Attack List. A two part array, the first 
я half for white and the second half for black. 
H It is used to hold the attackers of any given 
Н square іп the order of their value. 


; МАСТ -- White Attack Count. This is the first 

Е byte of the array and tells how many pieces are 

H in the white portion of the attack list. 

; BACT -- Black Attack Count. This is the eighth byte of 


; the array and does the same for black. 
FKK K K K K K K K K K FK K K FK K FK K K FK K FK FK K FK K FK K K FK K K FK K FK K K FK K K K Æ FK Æ K K K K K K K K K K K 
WACT = ATKLST 
BACT = ATKLST+7 
ATKLST: WORD 0,0,0,0,0,0,0 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
; PLIST -- Pinned Piece Array. This is a two part array. 
; PLISTA contains the pinned piece position. 
р PLISTD contains the direction from the pinned 
р piece to the attacker. 
; жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
PLIST - .-TBASE-1 
PLISTD - PLIST+10 
PLISTA: WORD 0,0,0,0,0,0,0,0,0,0 
FKK K K K K K K K K K FK K FK FK K FK K K FK K FK FK K FK K FK K K FK K K FK K FK K K FK K FK K Æ FK Æ K K K K K K K K K K K 
; POSK -- Position of Kings. A two byte area, the first 
H byte of which hold the position of the white 
Н king and the second holding the position of 
; the black king. 
; POSQ -- Position of Queens. Like POSK,but for queens. 
Н жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
POSK: BYTE 24,95 
POSQ: BYTE 14,94 
.BYTE -1 
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; SCORE -- Score Array. Used during Alpha-Beta pruning to 

Н hold the scores at each ply. It includes two 

; "dummy" entries for ply -1 and ply 0. 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


SCORE: WORD 0,0,0,0,0,0 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

; PLYIX -- Ply Table. Contains pairs of pointers, a pair 

Н for each ply. The first pointer points to the 

; top of the list of possible moves at that ply. 

; The second pointer points to which move in the 

; list is the one currently being considered. 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
YIX: WORD 0,0,0,0,0,0,0,0,0,0 

ORD 0,0,0,0,0,0,0,0,0,0 

ACK -- Contains the stack for the program. 

OC START+2FFH 

ACK: 
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.L 


Ml: 
M2: 
M3: 
MA: 
ТІ: 
T2: 
T3: 


IN 
IN 
NP 
ML 
ML 
SC 
BE 
ML 
ML 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


TABLE INDICES SECTION 

ML-M4 -- Working indices used to index into 
the board array. 

TL-T3 -- Working indices used to index into Direction 
Count, Direction Value, and Piece Value tables. 

INDX1 -- General working indices. Used for various 

INDX2 purposes. 

NPINS -- Number of Pins. Count and pointer into the 
pinned piece list. 

MLPTRI -- Pointer into the ply table which tells 
which pair of pointers are in current use. 

MLPTRJ -- Pointer into the move list to the move that is 
currently being processed. 


SCRIX -- Score Index. Pointer to the score table for 
the ply being examined. 

BESTM -- Pointer into the move list for the move that 
is currently considered the best by the 
Alpha-Beta pruning process. 

MLLST -- Pointer to the previous move placed in the move 
list. Used during generation of the move list. 

MLNXT -- Pointer to the next available space in the move 

жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

ОС START+0 

WORD TBASE 

WORD TBASE 

WORD TBASE 

WORD TBASE 

WORD TBASE 

WORD TBASE 

WORD TBASE 

DX1: WORD TBASE 

DX2: WORD TBASE 

INS: WORD TBASE 

PTRI: WORD PLYIX 

PTRJ: WORD 0 

RIX: WORD 0 

STM: WORD 0 

LST: WORD 0 

NXT: WORD MLLST 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; KOLOR -- Indicates computer's color. White is 0, and 


; Black is 80H. 
; COLOR -- Indicates color of the side with the move 


; P1-P3 -- Working area to hold the contents of the board 


Н array for а given square. 
; PMATE -- The move number at which a checkmate is 
В discovered during look ahead. 


; MOVENO -- Current move number. 

; PLYMAX -- Maximum depth of search using Alpha-Beta 

В pruning. 

; NPLY -- Current ply number during Alpha-Beta 

Н pruning. 

; CKFLG -- A non-zero value indicates the king is in check. 
; MATEF -- A zero value indicates no legal moves. 

; VALM -- The score of the current move being examined. 

; BRDC -- A measure of mobility equal to the total number 
; of squares white can move to minus the number 

В black can move to. 

; PTSL -- The maximum number of points which could be lost 
А through an exchange by the player not on the 

Н поме. 

; PTSW1 -- The maximum number of points which could be won 
Н through an exchange by the player not on the 

Н поме. 

; PTSW2 -- Тһе second highest number of points which could 


Н be won through a different exchange by the player 


р not on the move. 
; MTRL -- A measure of the difference in material 


р currently оп the board. It is the total value of 
, the white pieces minus the total value of the 


; black pieces. 
; BCO -- The value of board control(BRDC) at ply 0 


Image of page 26 for reference 


; MVO -- The value of material(MTRL) at ply 60. 

; PTSCK -- A non-zero value indicates that the piece 

А just moved itself into a losing exchange of 

; material. 

; MOVES -- Our very tiny book of openings. Determine 

В the first move for the computer. 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

KOLOR: BYTE 0 

COLOR: BYTE 0 


P1: BYTE 0 
P2: BYTE 0 
P3: BYTE 0 


PMATE: BYTE 0 
MOVENO: BYTE 0 
PLYMAX: BYTE 2 
NPLY: BYTE 0 

CKFLG: BYTE 0 
MATEF: BYTE 0 


has 


s 


жжжжж 
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VALM: BYTE 0 
BRDC: BYTE 0 
PTSL: BYTE 0 


PTSWl: BYTE 0 
PTSW2: BYTE 0 


MTRL: BYTE 0 
BCO: BYTE 0 
MVO: BYTE 0 


PTSCK: BYTE 0 

MOVES: BYTE 35,55,10H 
.BYTE 34,54,10H 

.BYTE 85,65,10H 

.BYTE 84,64,10H 
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; MOVE LIST SECTION 


; MUST 


; MLEND 


; MLPTR 


; MLFRP 
; MLTOP 


; MLFLG 


-- A 2048 byte storage area for generated moves. 
This area must be large enough to hold all 

the moves for a single leg of the move tree. 
-- The address of the last available location 
in the move list. 
-- The Move List is a linked list of individual 
moves each of which is 6 bytes in length. The 
move list pointer(MLPTR) is the link field 
within a move. 
-- The field in the move entry which gives the 
board position from which the piece is moving. 
-- The field in the move entry which gives the 
board position to which the piece is moving. 
-- A field in the move entry which contains flag 
information. The meaning of each bit is as 


follows: 
Bit 7 -- The color of any captured piece 
0 -- White 
1 -- Black 


Bit 6 -- Double move flag (set for castling and 
en passant pawn captures) 

Bit 5 -- Pawn Promotion flag; set when pawn 
promotes. 

Bit 4 -- When set, this flag indicates that 
this is the first move for the 
piece on the move. 

Bit 3 -- This flag is set is there is a piece 
captured, and that piece has moved at 


least once. 
Bits 2-0 Describe the captured piece. A 
zero value indicates no capture. 
MLVAL -- The field in the move entry which contains the 


Score assigned to the move. 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


22/8/21 8:06 а. m. 


Firefox 


26 de 93 


https://web.archive.org/web/20070614114334/http... 


Image of page 28 for reference 


.LOC START+300H 
MLIST: BLKB 2048 


MLEND = MLIST+2040 
MLPTR = 0 
MLFRP = 2 
MLTOP = 3 
MLFLG = 4 
MLVAL = 5 


Д жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


PROGRAM CODE SECTION 

BOARD SETUP ROUTINE 

FUNCTION: To initialize the board array, setting the 
pieces in their initial positions for the 

start of the game. 

CALLED BY: DRIVER 

CALLS: None 

ARGUMENTS: None 


р жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


INITBD: MVI B,120 ; Pre-fill board with -1's 
LXI H,BOARDA 

MVI M,-1 

INX H 

DJNZ .-3 

MVI B,8 

LXI X,BOARDA 

IB2: MOV A,-8(X) ; Fill non-border squares 
MOV 21(X),A ; White pieces 

SET 7,А ; Change to black 

MOV 91(X),A ; Black pieces 

MVI 31(X) , PAWN ; White Pawns 

MVI 81(X) , BPAWN ; Black Pawns 

MVI 41(X),0 ; Empty squares 

MVI 51(X),0 

MVI 61(X),0 

MVI 71(X),0 

INX X 

DJNZ IB2 

LXI X,POSK ; Init King/Queen position list 
MVI 0(X),25 

MVI 1(X),95 

MVI 2(X),24 

MVI 3(X),94 

RET 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; PATH ROUTINE 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; FUNCTION: To generate a single possible move for a given 


piece along its current path of motion including: 
Fetching the contents of the board at the new 
position, and setting a flag describing the 


; CALLED BY: MPIECE 


; CALLS: 


contents: 
0 -- New postion is empty 
1 -- Encountered a piece of the 
opposite color 
2 -- Encountered a piece of the 
same color 
3 -- New position is off the 
board 
ATTACK 
PINFND 
None 


; ARGUMENTS: Direction from the direction array giving the 


constant to be added for the new position. 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


РАТН: 
MOV A,M 
ADD 
MOV 
LIXD 
MOV 
CPI 
JRZ 
STA 
ANI 
STA 
RZ 
LDA 
LXI 
XRA 
BIT 
JRZ 
MVI 
RET 
РА1: 
КЕТ 
РА2: 
КЕТ 


ІХІ H,M2 ; Get previous position 
C ; Add diection constant 

M,A ; Save new position 

M2 ; Load board index 

A, BOARD (X) ; Get contents of board 
-1 ; In boarder area ? 

PA2 ; Yes - jump 

P2 ; Save piece 

7 ; Clear flags 

T2 ; Save piece type 

; Return if empty 

P2 ; Get piece encountered 

H,P1 ; Get moving piece address 

M ; Compare 

7,A ; Do colors match ? 

PA1 ; Yes - jump 

A,1 ; Set different color flag 

; Return 

MVI A,2 ; Set same color flag 
; Return 

MVI A,3 ; Set off board flag 
; Return 
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PIECE MOVER ROUTINE 


FUNCTION: To. generate all the possible legal moves for a given 
piece. 


; CALLED BY: GENMOV 


; CALLS: PATH 


ADMOVE 
CASTLE 
ENPSNT 


; ARGUMENTS: The piece to be moved. 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


MPIECE: XRA М; Piece to move 
ANI 87H ; Clear flag bit 
CPI BPAWN ; Is is a black Pawn ? 
JRNZ 43; No-Skip 
DCR A; Decrement for black Pawns 
ANI 7; Get piece type 
STA TL; Save piece type 
LIYD T1 ; Load index to DCOUNT/DPOINT 
MOV B,DCOUNT(Y) ; Get direction count 
MOV A,DPOINT(Y) ; Get direction pointer 
STA INDX2 ; Save as index to direct 
LIYD INDX2 ; Load index 
MP5: MOV С, DIRECT(Y) ; Get move direction 
LDA Ml ; From position 
STA M2 ; Initialize to position 
MP10: CALL PATH Я Calculate next position 
CPI 2 ; Ready for new direction ? 
JRNC MP15 Н Yes - Jump 
ANA A ; Test for empty square 
EXAF Н Save result 
LDA Т1 å Get piece moved 
CPI PAWN-1 ; Is it a Pawn ? 
JRC MP20 Н Yes - Jump 
CALL ADMOVE ; Add move to list 
EXAF ; Empty square ? 
JRNZ MP15 : No - Jump 
LDA Tl ; Piece type 
CPI KING ; King ? 
JRZ MP15 : Yes - Jump 
CPI BISHOP ; Bishop, Rook, or Queen ? 
JRNC MP10 H Yes - Jump 
MP15: INX Y Н Increment direction index 
DJNZ MP5 ; Decr. count-jump if non-zerc 
LDA T1 ; Piece type 
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CPI KING ; King ? 
CZ CASTLE ; Yes - Try Castling 
RET ; Return 


жжжжж PAWN LOGIC ***** 
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MP20: 


MP25: 


MP26: 


MP30: 


MP31: 


MP35: 


MP37: 


MP36: 


MOV 
CPI 
JRC 
JRZ 


EXAF ; 


JRNZ 
LDA 
CPI 
JRNC 
CPI 
JRNC 
LXI 
SET 
CALL 
INX 
DCR 
LXI 
BIT 
JRZ 
JMP 
EXAF 
JRNZ 
CALL 
JMP 
EXAF 
JRZ 
LDA 
CPI 
JRNC 
CPI 
JRNC 
LXI 
SET 
JMPR 
CALL 
JMP 


, 


https://web.archive.org/web/20070614114334/http... 


A,B ; Counter for direction 

3; On diagonal moves ? 

MP35 ; Yes - Jump 

MP30 ; -or-jump if on 2 square move 


Is forward square empty? 
MP15 ; No - jump 


M2 ; Get "to" position 

91 ; Promote white Pawn ? 
MP25 ; Yes - Jump 

29 ; Promote black Pawn ? 


MP26 ; No - Jump 
H,P2 ; Flag address 


5,M ; Set promote flag 

ADMOVE ; Add to move list 
У; Adjust to two square move 
B 

H,P1; Check Pawn moved flag 

3,M ; Has it moved before ? 
MP10 ; No - Jump 

MP15 ; Jump 


Is forward square empty ? 
MP15 ; No - Jump 
ADMOVE ; Add to move list 
MP15 ; Jump 

Is diagonal square empty ? 
MP36 ; Yes - Jump 


M2 ; Get "to" position 

91 ; Promote white Pawn ? 
MP37 ; Yes - Jump 

29 ; Black Pawn promotion ? 


MP31 ; No- Jump 
H,P2 ; Get flag address 


5,M ; Set promote flag 

MP31 ; Jump 

ENPSNT ; Try en passant capture 
MP15 ; Jump 
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хххххххххххххххххххххххххххххххххххххх* *ххххххххххххххххххх 


EN PASSANT ROUTINE 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


; FUNCTION: -- To test for en passant Pawn capture and 
а to add it to the move list if it is 
; legal. 
; CALLED BY: -- MPIECE 
; CALLS: -- ADMOVE 
; ADJPTR 
; ARGUMENTS: -- None 
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
ENPSNT: LDA М1; Set position of Pawn 
LXI H,P1 ; Check color 
BIT 7M; Is it white ? 
JRZ ‚+4; Yes - skip 
ADI 10 ; Add 10 for black 
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CPI 61 ; Оп en passant capture rank ? 

RNC ; No - return 

CPI 69 ; Оп en passant capture rank ? 

RNC ; No - return 

LIXD MLPTRJ ; Get pointer to previous move 
BIT 4,MLFLG(X) ; First move for that piece ? 
RZ ; No - return 

MOV A,MLTOP(X) ; Get "to" postition 

STA MA ; Store as index to board 

LIXD M4 ; Load board index 

MOV A,BOARD(X) ; Get piece moved 

STA РЗ ; Save it 

ANI АЖ Get piece type 

CPI PAWN ; 15 it a Pawn ? 

RNZ ; No - return 

LDA MA ; Get "to" position 

LXI H,M2 ; Get present "to" position 

SUB М; Find difference 

JP 245 5 Positive ? Yes - Jump 

NEG ; Else take absolute value 

CPI 10 ; Is difference 10 ? 

RNZ ; No - return 

LXI H,P2 ; Address of flags 

SET 6,M ; Set double move flag 

CALL ADMOVE ; Add Pawn move to move list 
LDA М1; Save initial Pawn position 

STA M3 

LDA M4 ; Set "from" and "to" position8 


for dummy move 
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STA М1 

STA M2 

LDA P3 ; Save captured Pawn 

STA P2 

CALL ADMOVE ; Add Pawn capture to move list 
LDA M3 ; Restore "from" position 

STA М1 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
; ADJUST MOVE LIST POINTER FOR DOUBLE MOVE 


; FUNCTION: -- To adjust move list pointer to link around 
; second move in double move. 


; CALLED BY: -- ENPSNT 

; CASTLE 

; (This mini-routine is not really called, 
H but is jumped to to save time.) 


; CALLS: -- Мопе 
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; ARGUMENTS: 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


ADJPTR: LHLD 
LXI 
DAD 
SHLD 
MVI 
INX 
MVI 
RET ; 
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-- Мопе 


MLLST ; Get list pointer 


D,-6 ; Size of a move entry 

D; Back up list pointer 

MLLST ; Save list pointer 

M,O ; Zero out link, first byte 

Н; Next byte 

M,O ; Zero out link, second byte 
Return 
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FUNCTION: 


; CALLED BY: -- 


; CALLS: 


; ARGUMENTS: 


CASTLE: LDA 
BIT 
RNZ ; 
LDA 
ANA 
RNZ ; 
LXI 

CA5: LDA 
ADD 
MOV 
STA 
LIXD 
MOV 
ANI 
CPI 
JRNZ 
MOV 
JMPR 

CA10: LIXD 
MOV 
ANA 
JRNZ 
LDA 
CPI 
JRZ 
CPI 
JRZ 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
CASTLE ROUTINE 


-- To determine whether castling is legal 
(Queen side, King side, or both) and add it 
to the move list if it is. 


MPIECE 
-- АТТАСК 
ADMOVE 
ADJPTR 


-- Мопе 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


PL; Get King 

З,А ; Has it moved ? 
Yes - return 

CKFLG ; Fetch Check Flag 


A; Is the King in check ? 
Yes - Return 
B,OFF03H ; Initialize King-side values 
М1; King position 
с; Rook position 
GA: Save 
M3 ; Store as board index 
M3 ; Load board index 
A,BOARD(X) ; Get contents of board 
7FH ; Clear color bit 
ROOK ; Has Rook ever moved ? 
CA20 ; Yes - Jump 
A,C ; Restore Rook position 
CA15 ; Jump 
M3 ; Load board index 
A,BOARD(X) ; Get contents of board 
A; Empty ? 
CA20 ; No - Jump 
M3 ; Current position 
22; Wh.ite Queen Knight square ? 
CA15 ; Yes - Jump 
92 ; Black Queen Knight square ? 


CA15 ; Yes - Jump 
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CALL ATTACK ; Look for attack on square 
ANA А; Any attackers ? 
JRNZ CA20 ; Yes - Jump 
LDA M3 ; Current position 
CA15: ADD В; Next position 
STA M3 ; Save as board index 
LXI H,M1; King position 
CMP М; Reached King ? 
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JRNZ CA10 ; No - jump 


SUB В; Determine King's position 
SUB B 
STA M2 ; Save it 
LXI H,P2 ; Address of flags 
MVI M,40H ; Set double move flag 
CALL ADMOVE ; Put king move in list 
LXI H,M1 ; Addr of King "from" position 
MOV A,M ; Get King's "from" position 
MOV M,C ; Store Rook "from" position 
SUB B; Get Rook "to" position 
STA М2 ; Store Rook "to" position 
XRA A; Zero 
STA P2 ; Zero move flags 
CALL ADMOVE ; Put Rook move in list 
CALL ADJPTR ; Re-adjust move list pointer 
LDA M3 ; Restore King position 
STA М1; Store 

CA20: MOV AFB ; Scan Index 
CPI 1 + Done ? 
RZ ; Yes - return 
LXI B,Q1FCH ; Set Queen-side initial values 
JMP CA5 ; Jump 
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)OXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


; ADMOVE ROUTINE 


; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
; FUNCTION: -- To add a move to the move list 


; CALLED BY: -- MPIECE 
; ENPSNT 
E CASTLE 
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; CALLS: 


; ARGUMENT: 


ADMOVE: LDED 
LXI 
ANA 
DSBC 
JRC 
LHLD 
SDED 
MOV 
INX 
MOV 
LXI 
BIT 
JRNZ 
LXI 
SET 
XCHG 
MVI 
INX 
MVI 
INX 
LDA 
MOV 
INX 
LDA 
MOV 
INX 
LDA 
MOV 
INX 
MVI 
INX 
SHLD 
RET 

AM10: MVI 
INX 
MVI 
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- - None 
-- Мопе 
жжхжжжхжхжхх*хххх*ххххххххххххххххххххххххххххххххххххххххххх 
MLNXT ; Addr of next loc in move list 
H,MLEND ; Address of list end 
A ; Clear carry flag 
D ; Calculate difference 
AM10 ; Jump if out of space 
MLLST ; Addr of prev. list area 
MLLST ; Savn next as previous 
M,E ; Store link address 
H 
M,D 
H,Pl ; Address of moved piece 
3,M ; Has it moved before ? 
‚+7 ; Yes - jump 
H,P2 ; Address of move flags 
4,M ; Set first move flag 
; Address of move area 
м,0 ; Store zero in link address 
H 
M,0 
H 
Ml ; Store "from" move position 
M,A 
H 
M2 ; Store "to" move position 
M,A 
H 
P2 ; Store move flags/capt. piece 
M,A 
H 
м,0 ; Store initial move value 
H 
MLNXT ; Save address for next move 
; Return 
M,0 ; Abort entry on table ovflow 
H 
M,0 
H 


DCX 
RET 
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FUNCTION: 


; CALLED BY: 
; CALLS: 


; ARGUMENTS: 


0000008 9000000 000090000XXXCX000000000000X000000000000C* XX 
GENERATE MOVE ROUTINE 
XXX *XX**X f *XXXXXXX* *XXXXXXXXX * HK EKA KKH yo ЖЖ KKH KEK HH EK XX XX FX 


-- To generate the move set for all of the 
pieces of a given color. 

-- FNDMOV 

-- MIECE 

INCHK 

-- None 
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; ХХХХХХХХХХХХХХХЖХЖХХХХЖХХХХЖХХХХЖХХЖХХХХХХХЖХХХХХХХХХХЖЖЖХЖХ 


GENMOV: CALL 
STA 
LDED 
LHLD 
INX 
INX 
MOV 
INX 
MOV 
INX 
SHLD 
SHLD 
MVI 

GM5: STA 
LIXD 
MOV 
ANA 
JRZ 
CPI 
JRZ 
STA 
LXI 
XRA 
BIT 
CZ 

GM10: LDA 
INR 
CPI 
JNZ 


RET ; 


INCHK ; Test for King in check 
CKFLG ; Save attack count as flag 
MLNXT ; Addr of next avail list space 
MLPTRI ; Ply list pointer index 
H ; Increment to next ply 
H 
M, EN ; Save move list pointer 
H 
M,D 
H 
MLPTRI ; Save new index 
MLLST ; Last pointer for chain init. 
A,21 ; First position on board 
М1; Save as index 
ML; Load board index 
A,BOARD(X) ; Fetch board contents 
A; Is it empty ? 
GM10 ; Yes - Jump 
-1; Is Ц a boarder square ? 
GM10 ; Yes - Jump 
PL; Save piece 
Н, COLOR ; Address of color of piece 
М; Test color of piece 
7,А ; Match ? 
MPIECE ; Yes - call Move Piece 
М1; Fetch current board position 
А; Incr to next board position 
99 ; End of board array ? 
GM5 ; No - Jump 

Return 
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FUNCTION: 


CALLED BY: 


; CALLS: 


; ARGUMENTS: 


хххххххххххххххххххххх* X)000000000000000000000000000000000XOX(X 
CHECK ROUTINE 
хххх*ххххххххххххххх - ХЖХЖХХХХХХХХХХХХХХЖХХХХХХХХХХХХХХХХХХХХХ 


- - To determine whether or not the 
King is in check. 

-- GENMOV 

FNDMOV 

EVAL 

-- ATTACK 


-- Color of King 


; хжжжжхххжх5*ж*жххххххххххххххххххххххххххххххххххххххххххххххх 


INCHK: LDA 

INCHK1: LXI 
ANA 
JRZ 
INX 
MOV 
STA 
LIXD 
MOV 
STA 
ANI 


COLOR ; Get color 


H,POSK ; Addr of white King position 
A; White ? 

.+3 ; Yes - Skip 

Н; Addr of black King position 

AM; Fetch King position 

M3 ; Save 

M3 ; Load board index 

A,BOARD(X) ; Fetch board contents 

PL; Save 

7.4 Get piece type 
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STA Tl; Save 
CALL ATTACK ; Look for attackers on King 
RET ; Return 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


ATTACK ROUTINE 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


FUNCTION: -- To find all attackers on a given square 
by scanning outward from the square 
until a piece is found that attacks 
that,square, or a piece is found that 
doesn't attack that square, or the edge 
of the board is reached. 


In determining which pieces attack a square, 
this routine also takes into account the ability of 
certain pieces to attack through another attacking 
piece. (For example a queen lined up behind a bishop 
of her same color along a diagonal.) The bishop is 
then said to be transparent to the queen, since both 
participate in the attack. 


In the case where this routine is called by 
CASTLE or INCHK, the routine is terminated as soon as 
an attacker of the opposite color is encountered. 


; CALLED BY: -- POINTS 
В PINFND 
; CASTLE 
; INCHK 
; CALLS: -- РАТН 
А ATKSAV 
; ARGUMENTS: -- Мопе 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
ATTACK: PUSH В; Save Register B 
XRA A; Clear 
MVI B,16 ; Initial direction count 
STA INDX2 ; Initial direction index 
LIYD INDX2 ; Load index 
AT5: MOV C,DIRECT(Y) ; Get direction 
MVI 0,0; Init. scan count/flags 
LDA M3 ; Init. board start position 
STA M2 ; Save 
AT10: INR D; Increment scan count 
CALL PATH ; Next position 
CPI oa Piece of a opposite color ? 
JRZ AT14A ; Yes - jump 
CPI 2; Piece of same color ? 
JRZ AT14B ; Yes - jump 
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AT12: 


AT13: 


AT14A: 


AT14B: 


жжжжж 
АТ14: 


AT15: 


AT16: 


ANA 
JRNZ 
MOV 
CPI 
JRNC 
INX 
DJNZ 
XRA 
POP 
RET 
BIT 
JRNZ 
SET 
JMP 
BIT 
JRNZ 
SET 
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A ; Empty position ? 
AT12 ; No - jump 
A,B Ы Fetch direction count 
9 å On knight scan ? 
AT10 ; No - jump 
Y Ч Increment direction index 
AT5 Н Done ? No - jump 
A Н No attackers 
B Н Restore register B 
! Return 
6,D ; Same color found already ? 
AT12 Е Yes - jump 
5,D ; Set opposite color found flag 
AT14 i Jump 
5,D E Opposite color found already? 
AT12 E Yes - jump 
6,D ; Set same color found flag 


DETERMINE IF PIECE ENCOUNTERED ATTACKS SQUARE ***** 


LDA 
MOV 
MOV 
CPI 
JRC 
MOV 
CPI 
JRNZ 
SET 
JMPR 
MOV 
ANI 
CPI 
JRNZ 
MOV 
CPI 
JRZ 
MOV 
CPI 
JRC 
MOV 
CPI 
JRZ 
MOV 
ANI 
CPI 
JRNZ 
CMP 
JRNZ 
LDA 


T2 ; Fetch piece type encountered 
E,A ; Save 

A,B ; Get direction-counter 

9; Look for Knights ? 

AT25 ; Yes - jump 

A,E ; Get piece type 


QUEEN ; Is is a Queen ? 
AT15 ; No - Jump 


7,D ; Set Queen found flag 

AT30 ; Jump 

A,D ; Get flag/scan count 

OFH ; Isolate count 

Ts Оп first position ? 

AT16 ; No - jump 

А,Е ; Get encountered piece type 


KING ; Is it a King ? 
AT30 ; Yes - jump 


A,B ; Get direction counter 
13; Scanning files ог ranks ? 
AT21 ; Yes - jump 

A,E ; Get piece type 

BISHOP ; Is it a Bishop ? 
AT30 ; Yes - jump 

A,D ; Get flags/scan count 

OFH ; Isolate count 

1 + On first position ? 

AT12 ; No - jump 

Е; Is it а Pawn ? 

AT12 ; No - jump 

P2 ; Fetch piece including color 


Image of page 41 for reference 


AT20: 





BIT 
JRZ 
MOV 
CPI 
JRC 
JMPR 
MOV 
CPI 
JRNC 


7,A ; Is it white ? 

AT20 ; Yes - jump 

A,B ; Get direction counter 

15 ; On a non-attacking diagonal ? 
AT12 ; Yes - jump 

AT30 ; Jump 

A,B ; Get direction counter 

15 ; On a non-attacking diagonal ? 


AT12 ; Yes - jump 
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JMPR AT30 ; Jump 

AT21: MOV A,E ; Get piece type 
CPI ROOK ; Is is a Rook ? 
JRNZ AT12 ; No - jump 
JMPR AT30 ; Jump 


AT25: MOV A,E ; Get piece type 
CPI KNIGHT ; Is it a Knight ? 
JRNZ AT12 ; No - jump 
AT30: LDA Tl ; Attacked piece type/flag 
CPI 7; Call from POINTS ? 
JRZ AT31 ; Yes - jump 
BIT 5,D ; Is attacker opposite color ? 
JRZ AT32 ; No - jump 
MVI А,1; Set attacker found flag 
JMP AT13 ; Jump 
AT31: CALL ATKSAV ; Save attacker in attack list 
AT32: LDA T2 ; Attacking piece type 
CPI KING ; Is it a King,? 
JZ AT12 ; Yes - jump 
CPI KNIGHT ; Is it a Knight ? 
JZ AT12 ; Yes - jump 
JMP AT10 ; Jump 


image of page 42 for reference 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; ATTACK SAVE ROUTINE 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
; FUNCTION: -- To save ап attacking piece value in the attack 
; list, and to increment the attack count for that 

; color piece. 


; The pin piece list is checked for the attacking 
; piece, and if found there, the piece is not 
; included in the attack list. 


; CALLED BY: -- ATTACK 
; CALLS: -- PNCK 
; ARGUMENTS: -- None 
П жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
ATKSAV: PUSH В; Save Regs BC 
PUSH D; Save Regs DE 
LDA NPINS ; Number of pinned pieces 
ANA A; Any ? 
CNZ PNCK ; yes - check pin list 
LIXD T2 ; Init index to value table 
LXI H,ATKLST ; Init address of attack list 
LXI B,0 ; Init increment for white 
LDA P2 ; Attacking piece 
BIT 7,А ; Is it white ? 
JRZ .+4 ; Yes - jump 
MVI C,7 ; Init increment for black 
ANI 7; Attacking piece type 
MOV E,A ; Init increment for type 
BIT 7,D ; Queen found this scan ? 
JRZ .+4 ; No - jump 
MVI E,QUEEN ; Use Queen slot in attack list 
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DAD B; Attack list address 
INR M; Increment list count 
MVI 0,0 
DAD р; Attack list slot address 
MOV AM; Get data already there 
ANI OFH ; Is first slot empty ? 
JRZ AS20 ; Yes - jump 
MOV A,M ; Get data again 
ANI OFOH ; Is second slot empty ? 
JRZ AS19 ; Yes - jump 
INX Н; Increment to King slot 
JMPR AS20 ; Jump 
AS19: RLD ; Temp save lower in upper 
MOV A,PVALUE(X) ; Get new value for attack list 
RRD ; Put in 2nd attack list slot 
JMPR AS25 ; Jump 
AS20: MOV A,PVALUE(X) ; Get new value for attack list 
RLD ; Put in 1st attack list slot 
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AS25: POP D ; Restore DE regs 
POP В ; Restore BC regs 
RET ; Return 


; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
| PIN CHECK ROUTINE 

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
; FUNCTION: -- Checks to see if the attacker is in the 
; pinned piece list. If so he is not a valid 

В attacker unless the direction in which he 

р attacks in the same as the direction along 

H which he is pinned. If the piece is 

H found to be invalid as an attacker, the 

р return to the calling routine is aborted 

; and this routine returns directly to ATTACK. 


; CALLED BY: -- ATKSAV 
; CALLS: -- Мопе 
; ARGUMENTS: -- The direction of the attack. Тһе 


; pinned piece counnt. 
; хххххххххххххххххххххххххххххххххххххххххххххххххххххххххххх* 
РМСК: MOV D,C ; Save attack direction 


MVI E,0 ; Clear flag 
MOV C,A ; Load pin count for search 
MVI B,0 
LDA M2 ; Position of piece 
LXI H,PLISTA ; Pin list address 
PCL: CCIR ; Search list for position 
RNZ ; Return if not found 
EXAF ; Save search paramenters 
BIT 0,E ; Is this the first find ? 
JRNZ PC5 ; No - jump 
SET 0,E ; Set first find flag 
PUSH H ; Get corresp index to dir list 
POP X 
MOV A,9(X) ; Get direction 
CMP D ; Same as attacking direction ? 
JRZ PC3 ; Yes - jump 
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NEG 
CMP 
JRNZ 
PC3: EXAF 
JPE 
RET 
PC5: POP 
POP 
POP 
RET 


PC5 


РС1 


PSW 
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Opposite direction ? 

Same as attacking direction ? 
No - jump 

Restore search parameters 
Jump if search not complete 
Return 

Abnormal exit 

Restore regs. 


Return to ATTACK 
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; „Жхжжххххсххжххххжххххххххххххххххххххххххххххххххххххххххххх 


; PIN FIND ROUTINE 


joOO0000900000000000000000000000000000000000000000000000000000C* 
To produce a list of all pieces pinned 
against the King or Queen, for both white 


; FUNCTION: 


; CALLED BY: 


; CALLS: 


; ARGUMENTS: 


PINFND: XRA 
STA 
LXI 
PF1: LDAX 
ANA 
JZ 
CPI 
RZ 
STA 
LIXD 
MOV 
STA 
MVI 
XRA 
STA 
LIYD 
PF2: LDA 
STA 
X RA 
STA 
MOV 
PF5: CALL 
ANA 
JRZ 
CPI 
JZ 
CPI 
LDA 
JRZ 
ANA 
JZ 
LDA 
CPI 
JZ 
MOV 


and black. 


EVAL 


ATTACK 


A 
NPINS 
D,POSK 
D 

A 

PF26 
-1 


M3 
M3 


A,BOARD(X) 
; Save 


P1 
B,8 

A 
INDX2 
INDX2 
M3 

M2 

A 

М4 


РАТН 
А 
РЕ5 
3 
PF25 
2 

M4 
PF15 
A 
PF25 
T2 
QUEEN 
PF19 
L,A 


FNDMOV 


PATH 


None 
PoO00000000C Y * X OOOOOOOOXOCOOCOOOOO0O00000000000000000000OOXOXOXOXXX 


; Zero pin count 


; Addr of King/Queen pos list 


Get position of royal piece 
Is it on board ? 
No- jump 
At end of list ? 
Yes return 
Save position as board index 
Load index to board 
; Get contents of board 


Init scan direction count 
Init direction index 


Get King/Queen position 
Save 


; Clear pinned piece saved pos 
C,DIRECT.( 
; Compute next position 


Y) ; Get direction of scan 


Is it empty ? 


; Yes - jump 
Off board ? 
Yes - jump 


Piece of same color found ? 
Load pinned piece position 
Yes - jump 

Possible pin ? 

No - jump 

Piece type encountered 
Queen ? 

Yes - jump 

Save piece type 
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MOV A,B ; Direction counter 
CPI 5 ; Non-diagonal direction ? 
JRC PF10 ; Yes - jump 
MOV A,L ; Piece type 
CPI BISHOP ; Bishop ? 
JNZ PF25 ; No - jump 
JMP PF20 ; Jump 
PF10: MOV A,L ; Piece type 
CPI ROOK ; Rook ? 
JNZ PF25 ; No - jump 
JMP PF20 ; Jump 
PF15: ANA A ; Possible pin ? 
JNZ PF25 ; No - jump 
LDA M2 ; Save possible pin position 
STA M4 
JMP PF5 ; Jump 
PF19: LDA Pl ; Load King or Queen 
ANI 7 ; Clear flags 
CPI QUEEN ; Queen ? 
JRNZ PF20 ; No - jump 
PUSH B ; Save regs. 
PUSH D 
PUSH Y 
XRA A ; Zero out attack list 
MVI B,14 
LXI H, ATKLST 
MOV M,A 
INX H 
DINZ .-2 
MVI A,7 ; Set attack flag 
STA T1 
CALL ATTACK ; Find attackers/defenders 
LXI H,WACT ; White queen attackers 
LXI D,BACT ; Black queen attackers 
LDA P1 ; Get queen 
BIT 7,A ; Is she white ? 
JRZ ‚+3 ; Yes - skip 
XCHG ; Reverse for black 
MOV A,M ; Number of defenders 
XCHG ; Reverse for attackers 
SUB M ; Defenders minus attackers 
DCR A ; Less 1 
POP Y ; Restore regs. 
POP D 
POP B 
JP PF25 ; Jump if pin not valid 
PF20: LXI H,NPINS ; Address of pinned piece count 
INR M ; Increment 
LIXD NPINS ; Load pin list index 
MOV PLISTD(X),C ; Save direction of pin 
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LDA M4 ; Position of pinned piece 
MOV PLIST(X),A ; Save in list 
PF25: INX үз Increment direction index 
DJNZ PF27 ; Done ? No - Jump 
PF26: INX D; Incr King/Queen pos index 
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JMP PF1 ; Jump 
PF27: JMP PF2 ; Jump 
Image of page 47 for reference 
р жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
; EXCHANGE ROUTINE 
р жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
; FUNCTION: -- To determine the exchange value of a 
Н piece оп а given square by examining all 
; attackers and defenders of that piece. 
; CALLED BY: -- POINTS 
; CALLS: -- NEXTAD 
; ARGUMENTS: -- Мопе. 
: жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
XCHNG: EXX ; Swap regs. 
LDA P1 ; Piece attacked 
LXI H,WACT ; Addr of white attkrs/dfndrs 
LXI D,BACT ; Addr of black attkrs/dfndrs 
.BIT 7,А ; Is piece white ? 
JRZ ‚+3 ; Yes - jump 
XCHG ; Swap list pointers 
MOV B,M ; Init list counts 
XCHG 
MOV C,M 
XCHG 
EXX ; Restore regs. 
MVI C,0 ; Init attacker/defender flag 
MVI E,0 ; Init points lost count 
LIXD T3 ; Load piece value index 
MOV D,PVALUE(X) ; Get attacked piece value 
SLAR D ; Double it 
MOV B,D ; Save 
CALL NEXTAD ; Retrieve first attacker 
RZ ; Return if none 
XC10: MOV L,A ; Save attacker value 
CALL NEXTAD ; Get next defender 
JRZ XC18 ; Jump if none 
EXAF ; Save defender value 
MOV A,B ; Get attacked value 
CMP L ; Attacked less than attacker ? 
JRNC XC19 ; No - jump 
EXAF ; -Restore defender 
XC15: CMP L ; Defender less than attacker ? 
RC ; Yes - return 
CALL NEXTAD ; Retrieve next attacker value 
RZ ; Return if none 
MOV L,A ; Save attacker value 
CALL NEXTAD ; Retrieve next defender value 
JRNZ XC15 ; Jump if none 
XC18: EXAF ; Save Defender 
MOV A,B ; Get value of attacked piece 
image of page 48 for reference 
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XC19: BIT 0,C ; Attacker or defender ? 
JRZ 245 Jump if defender 
NEG ; Negate value for attacker 
ADD Е; Total points lost 
MOV E,A ; Save total 
EXAF ; Restore previous defender 
RZ ; Return if none 
MOV B,L ; Prev attckr becomes defender 
JMP XC10 ; Jump 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; NEXT ATTACKER/DEFENDER ROUTINE 

FKK K K K K K K FK K K FK K K FK K FK K K FK K FK FK K FK K K FK K FK K K FK K FK K K FK K K K K K K K K K K K Æ K K Æ K K K K K K K K 

; FUNCTION: -- To retrieve the next attacker or defender 
в piece value from the attack list, and delete 

; that piece from the list. 


; CALLED BY: -- XCHNG 

; CALLS: -- Мопе 

; ARGUMENTS: -- Attack list addresses. 
; Side flag 


; Attack list counts 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


NEXTAD: INR C ; Increment side flag 

EXX ; Swap registers 

MOV A,B ; Swap list counts 

MOV B,C 

MOV C,A 

XCHG ; Swap list pointers 

XRA A 

CMP B ; At end of list ? 

JRZ NX6 ; Yes - jump 

DCR B ; Decrement list count 

INX H ; Increment list inter 

CMP M ; Check next item in list 

JRZ .-2 ; Jump if empty 

RRD ; Get value from list 

ADD A ; Double it 

DCX H ; Decrement list pointer 
NX6: EXX ; Restore regs. 

RET ; Return 


image of page 49 for reference 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


Н POINT EVALUATION ROUTINE 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; FUNCTION: -- To perform a static board evaluation and 
; derive a score for a given board position 
E CALLED BY: -- FNDMOV 
В EVAL 
; CALLS: -- ATTACK 
E XCHNG 
р LIMIT 
В ARGUMENTS: -- None 

жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
POINTS: XRA A ; Zero out variables 

STA MTRL 
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PT5: 


PT6AA: 


STA 
STA 
STA 
STA 
STA 
LXI 
MVI 
MVI 
STA 
LIXD 
MOV 
CPI 
JZ 
LXI 
MOV 
ANI 
STA 
CPI 
JRC 
CPI 
JRC 
CPI 
JRZ 
LDA 
CPI 
JRC 
JMP 
BIT 
JRZ 
MVI 
BIT 
JRZ 
MVI 
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BRDC 

PTSL 

PTSWI 

PTSW2 

PTSCK 

H,T1 ; Set attacker flag 

M,7 

A,21 ; Init to first square on board 
M3 ; Save as board index 

M3 ; Load board index 
A,B0ARD(X) ; Get piece from board 
-1 ,0ff board edge ? 

PT25 ; Yes - jump 

H,P1 ; Save piece, if any 

M,A 

7 ; Save piece type, if any 
T3 

KNIGHT ; Less than a Knight (Pawn) ? 
PT6X ; Yes - Jump 

ROOK ; Rook, Queen or King ? 
PT6.B ; No - jump 

KING ; Is it a King ? 

PT6AA ; Yes - jump 

MOVENO ; Get move number 

7 ; Less than 7 ? 

PT6A ; Yes - Jump 

PT6X ; Jump 

4,M ; Castled yet ? 

PT6A ; No - jump 

А,+6 ; Bonus for castling 

7,M ; Check piece color 

PT6D ; Jump if white 

A,-6 ; Bonus for black castling 


Image of page 50 for reference 


PT6A: 


PT6B: 


PT6C: 


PT6D: 


PT6X: 


JMP 
BIT 
JRZ 
JMP 
BIT 
JRNZ 
MVI 
BIT 
JRZ 
MVI 
LXI 
ADD 
MOV 
XRA 
MVI 
LXI 
MOV 
INX 
DJNZ 
CALL 
LXI 
LDA 
SUB 
LXI 


PT6D ; Jump 
3,M ; Has piece moved yet ? 
PT6X ; No - jump 
PT6C ; Jump 
3,M ; Has piece moved yet ? 
PT6X ; Yes - jump 
A,-2 ; Two point penalty for white 
7,M ; Check piece color 
+4 ; Jump if white 
A,+2 ; Two point penalty for black 
H,BRDC ; Get address of board control 
M ; Add on penalty/bonus points 
M,A ; Save 
A ; Zero out attack list 
B,14 
H, ATKLST 
M,A 
H 
-2 


ATTACK ; Build attack list for square 
H,BACT ; Get black attacker count addr 
WACT ; Get white attacker count 

M ; Compute count difference 
H,BRDC ; Address of board control 
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ADD 
MOV 
LDA 
ANA 
JZ 
CALL 
XRA 
CMP 
JRZ 
DCR 
LDA 
LXI 
XRA 
BIT 
MOV 
JRNZ 
LXI 
CMP 
JRC 
MOV 
LIXD 
LDA 
CMP 
JRNZ 
STA 
JMP 
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M ; Accum board control score 
M,A ; Save 

P1 ; Get piece on current square 
A ; Is it empty ? 

PT25 ; Yes - jump 

XCHNG ; Evaluate exchange, if any 
A ; Check for a loss 

E ; Points lost ? 

PT23 ; No - Jump 

D ; Deduct half a Pawn value 

P1 ; Get piece under attack 
H,COLOR ; Color of side just moved 

M ; Compare with piece 

7,А ; Do colors match ? 

A,E ; Points lost 

PT20 ; Jump if no match 

H,PTSL ; Previous max points lost 

M ; Compare to current value 
PT23 ; Jump if greater than 

M,E ; Store new value as max lost 
MLPTRJ ; Load pointer to this move 
M3 ; Get position of lost piece 
MLTOP(X) ; Is it the one moving ? 
PT23 ; No - jump 

PTSCK ; Save position as a flag 
PT23 ; Jump 
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PT20: 


PT23: 


PT25: 


PT25A: 


LXI 
CMP 
JRC 
MOV 
MOV 
LXI 
CMP 
JRC 
MOV 
LXI 
BIT 
MOV 
JRZ 


NEG ; 


LXI 
ADD 
MOV 
LDA 
INR 
CPI 
JNZ 
LDA 
ANA 
JRZ 
LDA 
STA 
XRA 
STA 
LDA 
ANA 
JRZ 


H,PTSW1 ; Previous maximum points won 
М; Compare to current value 
.+4 ; Jump if greater than 
AM; Load previous max value 
M,E ; Store new value as max won 
H,PTSW2 ; Previous 2nd max points won 
М; Compare to current value 
PT23 ; Jump if greater than 
M,A ; Store as new 2nd max lost 
H,PL ; Get piece 
7M; Test color 
A,D ; Value of piece 
.+4 ; Jump if white 
Negate for black 
H,MTRL ; Get addrs of material total 
M ; Add new value 
M,A ; Store 
M3 ; Get current board position 
A; Increment 
99 ; At end of board ? 
PT5 ; No - jump 
PTSCK ; Moving piece lost flag 
A; Was it lost ? 


PT25A ; No - jump 
PTSW2 ; 2nd max points won 
PTSW1 ; Store as max points won 


A; Zero out 2nd max points won 
PTSW2 

PTSL ; Get max points lost 

А; Is it zero ? 

T3 ; Yes - jump 


22/8/21 8:06 a. m. 


Firefox 


45 de 93 


DCR 
MOV 
LDA 
ANA 
JRZ 
LDA 
ANA 
JRZ 
DCR 
SRLR 
SUB 
LXT 
BIT 
JRZ 
NEG ; 
LXI 
ADD 
LXI 
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A; Decrement it 
В,А ; Save it 

PTSW1 ; Max,points won 
A; Is it zero ? 


.+11. ; Yes - jump 
PTSW2 ; 2nd max points won 


A; Is it zero ? 
5; Yes - jump 
A; Decrement it 
A; Divide it by 2 
В; Subtract points lost 
9,COLOR ; Color of side just moved 
7,M ; Is it white ? 
.+4 ; Yes - jump 
Negate for black 
H,MTRL ; Net material on board 
М; Add exchange adjustments 


H,MVO ; Material at ply 0 
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SUB 
MOV 
MVI 
CALL 
MOV 
LDA 
LXI 
SUB 
MOV 
LDA 
ANA 
JRZ 
MVI 
MVI 
CALL 
MOV 
MOV 
ADD 
ADD 
ADD 
LXI 
BIT 
JRNZ 
NEG ; 
ADI 
STA 
LIXD 
MOV 
RET ; 


М; Subtract from current 
B,A ; Save 

A,30 ; Load material limit 

LIMIT ; Limit to plus or minus value 
E,A ; Save limited value 

BRDC ; Get board control points 
H,BCO ; Board control at ply zero 


М; Get difference 
B,A ; Save 
PTSCK ; Moving piece lost flag 
A; Is it zero ? 
.+4 ; Yes - jump 
B,0 ; Zero board control points 
A,6 ; Load board control limit 
LIMIT ; Limit to plus or minus value 
D,A ; Save limited value 
A,E ; Get material points 
А; Multiply by 4 
A 
D; Add board control 
H,COLOR ; Color of side just moved 
7M; Is it white ? 
.+4 ; No - jump 
Negate for white 
80H ; Rescale score (neutral = 80H 
VALM ; Save score 
MLPTRJ ; Load move list pointer 
MLVAL(X),A ; Save score in move list 
Return 
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; хххжххххх*х*хххххххххххххххх**ххххххххххххххххххххххххххххх 


LIMIT ROUTINE 
—XX0000000000000000000000000000000000000000000000000(OOOXCXX 
FUNCTION: -- To limit the magnitude of a given value 
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to another given value. 


CALLED BY: -- POINTS 
CALLS: -- None 
ARGUMENTS: - - Input - Value, to be limited in the B 


JZ 

NEG 
CMP 
RNC 
MOV 
RET 


LIM10: CMP 


RC 
MOV 
RET 


Return 


. END 


register. 
- Value to limit to in the A register 


Output - Limited value in the A register. 
ACE y FKK KKK KX 000000053 00000000000000000000000000000C XXX XXXX 
LIMIT: BIT 


7,B i 
LIMIO ; 


Is value negative ? 

No - jump 

Make positive 

Compare to limit 

Return if outside limit 
Output value as is 
Return 

Compare to limit 

Return if outside limit 
Output value as is 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
MOVE ROUTINE 
ХХХХХХХХХХХХХХХХХХХХХХХХХХХХЖХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХ 


; FUNCTION: -- To execute a move from the move list on the 
р board array. 
; CALLED BY: -- CPTRMV 
В PLYRMV 
; EVAL 
; FNDMOV 
Н VALMOV 
; CALLS: -- Мопе 
; ARGUMENTS: -- None 
; ХХХХХХХХХХХЖХХХХХХЖХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХ 
МОМЕ: LHLD MLPTRJ ; Load move list pointer 
INX H ; Increment past link bytes 
INX H 
MV1: MOV A,M ; "From" position 
STA M1 ; Save 
INX H ; Increment pointer 
MOV A,M ; "To" position 
STA M2 ; Save 
INX H ; Increment pointer 
MOV D,M ; Get captured piece/flags 
LIXD M1 ; Load "from" pos board index 
MOV E,BOARD (X) ; Get piece moved 
BIT 5,D ; Test Pawn promotion flag 
JRNZ MV15 ; Jump if set 
MOV A,E ; Piece moved 
ANI 7 ; Clear flag bits 
CPI QUEEN ; Is it a queen ? 
JRZ MV20 ; Yes - jump 
CPI KING ; Is it a king ? 
JRZ MV30 ; Yes - jump 
MV5: LIYD M2 ; Load "to" pos board index 
SET 3,E ; Set piece moved flag 
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MOV BOARD(Y),E ; Insert piece at new position 
MVI BOARD(X),0 ; Empty previous position 
BIT 6,D ; Double move ? 

JRNZ MV40 ; Yes - jump 

MOV A,D ; Get captured piece, if any 

ANI 7 

CPI QUEEN ; Was it a queen ? 

RNZ ; No - return 

LXI H,POSQ ; Addr of saved Queen position 
BIT 7,D ; Is Queen white ? 

JRZ MV10 ; Yes - jump 

INX H ; Increment to black Queen pos 
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MV10: XRA A ; Set saved position to zero 
MOV M,A 
RET ; Return 
MV15: SET 2,E ; Change Pawn to a Queen 
JMP MV5 ; Jump 
MV20: LXI H,POSQ ; Addr of saved Queen position 
MV21: BIT 7,E ; Is Queen white ? 
JRZ MV22 ; Yes - jump 
MV22: LDA M2 ; Get rnewnQueenbpositionen pos 
MOV M,A ; Save 
JMP MV5 ; Jump 
MV30: LXI H,POSK ; Get saved King position 
BIT 6,D ; Castling ? 
JRZ MV21 ; No - jump 
SET 4,E ; Set King castled flag 
JMP MV21 ; Jump 
MV40: LHLD MLPTRJ ; Get move list pointer 
LXI D,8 ; Increment to next move 
DAD D 
JMP MV1 ; Jump (2nd part of dbl move) 
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; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXX 

; UN-MOVE ROUTINE 

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

; FUNCTION: - - То reverse the process of the move routine, 
; thereby restoring the board array to its 

; previous position. 


; CALLED BY: -- VALMOV 
3 EVAL 

; FNDM0V 

å ASCEND 

; CALLS: -- None 

; ARGUMENTS: -- None 


; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
UNMOVE: LHLD MLPTRJ ; Load move list pointer 


INX H ; Increment past link bytes 
INX H 
UM1: MOV AM; Get "from" position 
STA ML ; Save 
INX Н; Increment pointer 
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UM5: 


UM6: 


MOV 
STA 
INX 
MOV 
LIXD 
MOV 
BIT 
JRNZ 
MOV 
ANI 
CPI 
JRZ 
CPI 
JRZ 
BIT 
JRNZ 
LIYD 
MOV 
MOV 
ANI 
MOV 
BIT 
JRNZ 
MOV 
ANI 
CPI 


RNZ ; 
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AM; Get "to" position 

M2 ; Save 

Н; Increment pointer 

D,M ; Get captured piece/flags 
M2 ; Load "to" pos board index 
E,BOARD(X) ; Get piece moved 
5,D ; Was it a Pawn promotion ? 
UM15 ; Yes - jump 

А,Е ; Get piece moved 

Tg Clear flag bits 


QUEEN ; Was it a Queen ? 
UM20 ; Yes - jump 
KING ; Was it a King ? 
UM30 ; Yes - jump 


4,D ; Is this 1st move for piece ? 
UM16 ; Yes - jump 

М1; Load "from" pos board index 
BOARD(Y),E ; Return to previous board pos 
A,D ; Get captured piece, if any 
8FH ; Clear flags 

BOARD(X),A ; Return to board 

6,D ; Was it a double move ? 

UM40 ; Yes - jump 

A,D ; Get captured piece, if any 
7; Clear flag bits 


QUEEN ; Was it a Queen ? 
No - return 
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UM10: 


UM15: 


UM16: 


UM20: 


UM21: 


UM22: 


UM30: 


UM40: 


LXI 
BIT 
JRZ 
INX 
LDA 
MOV 
RET 
RES 
JMP 
RES 
JMP 
LXI 
BIT 
JRZ 
INX 
LDA 
MOV 
JMP 
LXI 
BIT 
JRZ 
RES 
JMP 
LHLD 
LXI 
DAD 
JMP 


H,POSQ ; Address of saved Queen pos 
7,D å Is Queen white ? 
UM10 ; Yes - jump 
H Н Increment to black Queen pos 
M2 ; Queen's previous position 
M,A Н Save 
: Return 
2,E H Restore Queen to Pawn 
UM5 i Jump 
3,E Н Clear piece moved flag 
UM6 Н Jump 
H,POSQ ; Addr of saved Queen position 
7,E Н Is Queen white ? 
UM22 ; Yes - jump 
H å Increment to black Queen pos 
М1 ; Get previous position 
M,A E Save 
UM5 ; Јитр 
H,POSK ; Address of saved King pos 
6,D ; Was it a castle ? 
UM21 Н No - jump 
4,E nm Clear castled flag 
UM21 Н Jump 
MLPTRJ ; Load move list pointer 
D,8 4 Increment to next move 
D 
UM1 ; Jump (2nd part of dbl move) 
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; CALLS: 





CALLED BY: 


; ARGUMENTS: 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


SORTM: 


SR5: 


SR10: 


SR15: 


SR25: 


SR30: 


LBCD 
LXI 
MOV 
MOV 
MOV 
INX 
MOV 
MOV 
DCX 
MOV 
XRA 
CMP 
RZ 
SBCD 
CALL 
LHLD 
LBCD 
MOV 
INX 
MOV 
XRA 
CMP 
JRZ 
PUSH 
POP 
LDA 
CMP 
JRNC 
MOV, 
DCX 
MOV 
JMP 
XCHG 
JMP 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


SORT ROUTINE 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


FUNCTION: 


-- To sort the move list in order of 
increasing move value scores. 


FNDMOV 
-- EVAL 
- - None 


MLPTRI ; Move list begin pointer 


D,0 ; Initialize working pointers 
H,B 

L,C 

C,M ; Link to next move 

H 

B,M 

M,D ; Store to link in list 
H 

M,E 

A ; End of list ? 

B 


; Yes - return 
MLPTRJ ; Save list pointer 
EVAL ; Evaluate move 
MLPTRI ; Begining of move list 
MLPTRJ ; Restore list pointer 


E,M ; Next move for compare 
H 
D,M 
A ; At end of list ? 
D 
SR25 ; Yes - jump 
D ; Transfer move pointer 
X 
VALM ; Get new move value 
MLVAL (X) ; Less than list value ? 
SR30 ; No - jump 
M,B ; Link new move into list 
H 
M,C 
SR5 ; Jump 
; Swap pointers 
SR15 ; Jump 
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; ХХХХЖХХХЖЖЖХХХХХЖЖХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХ 
; EVALUATION ROUTINE 

; ЖХЖГЕЖХХХХЖХХХЖХХЖХХХЖХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХ 
; FUNCTION: 


-- To evaluate a given move in the move list. 


It first makes the move on the board, then ii 
the move is legal, it evaluates it, and then 
restores the boaard position. 
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; CALLED BY: 
; CALLS: 


; ARGUMENTS: 
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-- SORT 
-- МОМЕ 
INCHK 
PINFND 
POINTS 
UNMOV 
-- Мопе 


ж*жх**хжххх*ж*ххх*ххххххххххххххххххххххххххххххххххххххххххххх 


EVAL: CALL 
CALL 
ANA 
JRZ 
XRA 
STA 
JMP 

EV5: CALL 
CALL 

EV10: CALL 
RET ; 


MOVE ; Make move on the board array 
INCHK ; Determine if move is legal 


А; Legal move ? 

EV5 ; Yes - jump 

A; Score of zero 

VALM ; For illegal move 

EV10 ; Jump 

PINFND ; Compile pinned list 

POINTS ; Assign points to move 

UNMOVE ; Restore board array 
Return 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; FIND MOVE ROUTINE 


; FUNCTION: 


; CALLED BY: -- 


; CALLS: 


; ARGUMENTS: 


FNDMOV: LDA 
CPI 
CZ 
XRA 
STA 
LXI 
SHLD 
LXI 
SHLD 
LXI 
SHLD 
LDA 
STA 
LXI 
SHLD 
LDA 
ADI 
MOV 
XRA 
MOV 
INX 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


-- То determine the computer's best move Бу 
performing a depth first tree search using 
the techniques of alpha-beta pruning. 


CPTRMV 


-- PINFND 
POINTS 
GENMOV 
SORTM 
ASCEND 
UNMOV 


None 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


MOVENO ; Currnet move number 

1 ; First move ? 

BOOK ; Yes - execute book opening 

A ; Initialize ply number to zer 
NPLY 

H,0 ; Initialize best move to zero 
BESTM 

H,MLIST ; Initialize ply list pointers 
MLNXT 

H,PLYIX-2 

MLPTRI 

KOLOR ; Initialize color 

COLOR 

H,SCORE ; Initialize score index 

SCRIX 

PLYMAX ; Get max ply number 

2 ; Add 2 

B,A ; Save as counter 

A ; Zero out score table 

M,A 

H 
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FM5: 


DJNZ 
STA 
STA 
CALL 
CALL 
LDA 
STA 
LDA 
STA 
LXI 
INR 


.-2 

BCO å 
MVO å 
PINFND ; 
POINTS ; 
BRDC E 
BCO Н 
MTRL ; 
MVO å 
H,NPLY ; 
M ; 
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Zero ply 0 board control 
Zero ply 0 material 
Complie pin list 
Evaluate board at ply 0 
Get board control points 
Save 

Get material count 

Save 

Address of ply counter 
Increment ply count 
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FM15: 


FM18: 


XRA 
STA 
CALL 
LDA 
LXI 
CMP 
СС 
LHLD 
SHLD 
LHLD 
MOV 
INX 
MOV 
MOV 
ANA 
JRZ 
SDED 
LHLD 
MOV 
INX 
MOV 
LDA 
LXI 
CMP 
JRC 
CALL 
CALL 
ANA 
JRZ 
CALL 
JMP 
LDA 
LXI 
CMP 
JRNZ 
LDA 
XRI 
CALL 
ANA 
JRZ 
JMP 
LIXD 
MOV 
ANA 
JRZ 


A і 
MATEF 

GENMOV ; 
NPLY ; 
H, PLYMAX 
M ; 
SORTM  ; 
MLPTRI ; 
MLPTRJ ; 
MLPTRJ ; 
E,M 5 


,М 
D 


, 


> > о ш 


ЕМ25 ; 
MLPTRJ ; 
MLPTRI ; 
M,E 

H 

M,D 

NPLY ; 
H, PLYMAX 
M ; 
ЕМ18 ; 
MOVE ; 
INCHK  ; 
A ; 
.+8 М 
UNMOVE ; 
FM15 ; 
NPLY Е 
H, PLYMAX 
M i 
FM35 ; 
COLOR ; 
80H Н 
INCHK1 ; 
A ; 
ЕМЗ5 Е 
ЕМ19 ; 
MLPTRJ ; 


A,MLVAL (X) 


A i 
FM15 ; 


Initialize mate flag 


Generate list of moves 
Current ply counter 
; Address of maximum ply number 
At max ply ? 
No - call sort 
Load ply index pointer 
Save as last move pointer 
Load last move pointer 
Get next move pointer 


End of move list ? 

Yes - jump 

Save current move pointer 
Save in ply pointer list 


Current ply counter 
; Maximum ply number ? 
Compare 
Jump if not max 
Execute move on board array 
Check for legal move 
Is move legal 
Yes - jump 
Restore board position 
Jump 
Get ply counter 
; Max ply number 
Beyond max ply ? 
Yes - jump 
Get current color 
Get opposite color 
Determine if King is in check 
In check ? 
No - jump 
Jump (One more ply for check) 
Load move pointer 
; Get move score 
Is it zero (illegal move) ? 
Yes - jump 
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FM19: 


CALL 
LXI 
MVI 
X RA 
MOV 


MOVE 
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; Execute move on board array 


H,COLOR ; Toggle color 


A,80H 
M 
M,A 


; Save new color 
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FM25: 


FM30: 


FM35: 


FM36: 


FM37: 


BIT 
RNZ 
XI 
NR 
HLD 
ov 
NX 
NX 
ov 
CX 
HLD 
MP 
LDA 
ANA 
JRNZ 
LDA 
ANA 
MVI 
JRZ 
LDA 
STA 
MVI 
JMP 
LDA 
CPI 
RZ 
CALL 
LHLD 
INX 
INX 
MOV 
DCX 
DCX 
JMP 
CALL 
CALL 
CALL 
LDA 
LXI 
SET 
LHLD 
CMP 
JRC 
JRZ 
NEG 
INX 
CMP 
JC 
JZ 


7,A 
.*6 


M 
SCRIX 
А,М 

H 

H 

M,A 

H 
SCRIX 
FM5 
MATEF ; 
A; 
FM30 ; 
CKFLG ; 
A; 
A,80H ; 
FM36 ; 


MOVENO ; 


MATE 
A,OFFH 
FM36 
NPLY 

1 


ASCEND 
SCRIX 


FM37 
PINFND 
POINTS 
UNMOVE 
VALM 
H,MATEF 
0,М 
5СКІХ 
М 

FM40 
FM40 


H 
M 
FM15 
FM15 


, 


бе 
Ch 
No 
Ge 
Wa 
Pr 
No 


Is it white ? 


; No - jump 
H,MOVENO 


; Increment move number 


Load score table pointer 
Get score two plys above 
Increment to current ply 


; Save score as initial value 
; Decrement pointer 
; Save it 


Jump 
t mate flag 
eckmate or stalemate ? 
- jump 
t check flag 
s King in check ? 
e-set stalemate score 
- jump (stalemate) 
Get move number 
Save 
Pre-set checkmate score 
Jump 
Get ply counter 
At top of tree ? 
Yes - return 
Ascend one ply in tree 
Load score table pointer 
Increment to current ply 


Get score 
Restore pointer 


Jump 

Compile pin list 
Evaluate move 

Restore board position 
Get value of move 

Set mate flag 


Load score table pointer 
Compare to score 2 ply above 
Jump if less 

Jump if equal 

Negate score 

Incr score table pointer 
Compare to score 1 ply above 
Jump if less than 

Jump if equal 
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MOv 
LDA 
CPI 
JNZ 
LHLD 
SHLD 
LDA 
CPI 
JNZ 
LXI 
DCR 
DCR 
LDA 
BIT 
RZ ; 
LXI 
DCR 
RET ; 
ЕМ40: CALL 
JMP 


M,A ; Save as new score 1 ply above 
NPLY ; Get current ply counter 

1; At top of tree ? 

FM15 ; No - jump 

MLPTRJ ; Load current move pointer 
BESTM ; Save as best move.pointer 

SCORE+1 ; Get best move score 


OFFH ; Was it a checkmate ? 
FM15 ; No - jump 


H,PLYMAX ; Get maximum ply number 
М; Subtract 2 
М 
KOLOR ; Get computer's color 
7,A ; Is it white ? 

Yes - return 
H,PMATE ; Checkmate move number 
М; Decrement 

Return 
ASCEND ; Ascend one ply in tree 
FM15 ; Jump 
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; ASCEND TREE ROUTINE 


; FUNCTION: 


; CALLED BY: -- 
; CALLS: 


; ARGUMENTS: 


ASCEND: LXI 
MVI 
XRA 
MOV 
BIT 
JRZ 
LXI 
DCR 
LHLD 
DCX 
SHLD 
LXI 
DCR 
LHLD 
DCX 
MOV 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


-- To adjust all necessary parameters to 
ascend one ply in the tree. 


FNDMOV 
== UNMOV 


-- Мопе 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


H,COLOR ; Toggle color 


A,80H 

M 

M,A ; Save new color 

7,A ; Is it white ? 

.+6 ; Yes - jump 

Н, МОМЕМО ; Decrement move number 
M 

SCRIX ; Load score table index 

H ; Decrement 

SCRIX ; Save 

H,NPLY ; Decrement ply counter 

M 

MLPTRI ; Load ply list pointer 

H ; Load pointer to move list to 
D,M 
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DCX H 

MOV E,M 

SDED MLNXT ; Update move list avail ptr 
DCX H ; Get ptr to next move to undo 
MOV D,M 

DCX H 

MOV E,M 


SHLD MLPTRI ; Save new ply list pointer 
SDED MLPTRJ ; Save next move pointer 

CALL UNMOVE ; Restore board to previous pl 
RET ; Return 
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; ONE MOVE BOOK OPENING 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж ужжжжжжжжжжжжжжж 


FUNCTION: -- To provide an opening book of a single 
move. 
; CALLED BY: -- FNDMOV 
; CALLS: -- Мопе 


; ARGUMENTS: -- Мопе 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


BOOK: POP PSW ; Abort return to FNDMOV 
LXI Н, SCORE+1 ; Zero out score 
MVI М, 9 ; Zero out score table 
LXI Н, ВМОМЕ5 - 2 ; Init best move ptr to book 
SHLD BESTM 
LXI H,BESTM ; Initialize address of pointer 
LDA KOLOR ; Get computer's color 
ANA A ; Is it white ? 
JRNZ BM5 ; No - jump 
LDAR ; Load refresh reg (random no) 
BIT 0,A ; Test random bit 
RZ ; Return if zero (P-K4) 
INR M ; Р-04 
INR M 
INR M 
RET ; Return 
BM5: INR M ; Increment to black moves 
INR M 
INR M 
INR M 
INR M 
INR M 
LIXD MLPTRJ ; Pointer to opponents 15% move 
MOV A,MLFRP(X) ; Get "from" position 
CPI 22 ; Is it a Queen Knight move ? 
JRZ BM9 ; Yes - Jump 
CPI 27 ;.Is it a King Knight move ? 
JRZ BM9 ; Yes - jump 
CPI 34 ; Is it a Queen Pawn ? 
JRZ BM9 ; Yes - jump 
RC ; If Queen side Pawn opening - 
i return (P-K4) 
CPI 35 ; Is it a King Pawn ? 
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RZ 
BM9: INR 
INR 
INR 
RET 
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; Yes - return (P-K4) 


M ; (Р-04) 


= 


; Return to CPTRMV 


; жжхжжжжжжжжжхжжжжжхжжхжххжххжхххххххххххххххххх*ххххххххххх 
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; ХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХЖХХХХХХХХ 
р GRAPHICS DATA BASE 
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
The Graphics Data Base contains the 

А necessary stored data to propuce the piece 

; on the board. Only the center 4 x 4 blocks are 

Н stored and only for a Black Piece оп a White 

А square. A White piece on a black square is 

Е produced by complementing each block, and а 

Н piece оп its own color square is produced 

; by moving in a kernel of 6 blocks. 

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


; DESCRIPTION: 


.10С 
ВІВА5Е - 
BLOCK = 

. RADIX 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 
KERNEL - 

.BYTE 

.BYTE 

.BYTE 

.BYTE 


START+384 

START+512 

. -BLBASE 

16 

80,80,80,80 ; Black 
80,0A0,90,80 
80,0AF,9F,80 
80,83,83,80 
80,0B0,0B0,80 ; Black 
OBE, ОВЕ, OBF,95 
OAO, OBE, ОВЕ, 85 
83,83,83,81 

80, 0A0, 00,80 ; Black 
ОАВ, ОВЕ, OBD, 80 
82,0AF,87,80 
82,83,83,80 

80,80,80,80 ; Black 
8A,0BE,0BD,85 

80, ОВЕ, ОВЕ, 80 
82,83,83,81 

90,80,80,90 ; Black 
OBF,0B4,0BE,95 
8B,0BF,9F,81 
83,83,83,81 
80,088,90,80 ; Black 
OBC, OBA, 088, 94 

OAF , OBF, OBF,85 
83,83,83,81 


Pawn on White square 


Knight on White square 


Bishop on White square 


Rook on White square 


Queen on White square 


King on White square 


90,0B0,0B0, 80 ; Toppled Black King 


OBF, ОВЕ, 087, 80 
9F,0BF,0BD,80 
80,80,88,9D 

. -BLBASE 

ОВЕ, Е, ВАР, ОВЕ, 9А, 0А5 
89, ОАЕ, ОВЕ, 9F,0B9,9F 
97, 0ВЕ, 96, 0BD, 9B, 089 
0В5,0А1, 92, ОВҒ, ОАА, 95 


; Pawn Kernel 
; Knight Kernel 
; Bishop Kernel 
; Rook Kernel 
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.BYTE 
.BYTE 
.BYTE 
. RADIX 
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0A8,9B,0B9,0B6,0AF,0A7 ; Queen Kernel 
0A3,85,0A7,9A, OBF, 9F ; King Kernel 
0A8,0BF,89,0A2,8F,86 ; Toppled King Kernel 
10 
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A жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


GRTTNG: 
ANAMSG: 
CLRMSG: 
TITLE: 
TITLE2: 


SPACE: 


MVENUM: 
TITLES: 


MVEMSG: 


0.0: 
0.0.0: 
CKMSG: 
MTMSG: 
MTPL: 
PCs: 
UWIN: 
IWIN: 
AGAIN: 


CRTNES: 
PLYDEP: 
TITLE4: 
WSMOVE: 
BLANKR: 


P.PEP: 


INVALI: 
INVAL2: 


.10С 

. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
- .ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 
. ASCII 


STANDARD MESSAGES 
FOO OOOO ЖЖЖ рк et pet *trtt,etttt**tr**xtr, ttt 


START+1800H 
"WELCOME TO CHESS! CARE FOR A GAME?" 
"WOULD YOU LIKE TO ANALYZE A POSITION?" 

"DO YOU WANT TO PLAY WHITE(w) OR BLACK(b)?" 
"SARGON" 

"PLAYER" 

5 ; For output of blank area 

"01 Ш 

[^H83] ; Part of TITLE 3 - Underlines 
[^H83] 
[^H83] 
[^H83] 
[^H83] 
[^H83] 
[^H83] 
[^H83] 
[^H83] 
[^H83] 
[^H83] 
[^H83] 
"al-al" 
"g.Q " 
"0-0-0" 
"СНЕСК" 
"MATE IN " 
"2" 
"KQRBNP" 
"YOU WIN" 
"I WIN" 
"CARE FOR ANOTHER GAME?" 
"IS THIS RIGHT?" 

"SELECT LOOK AHEAD (1-6)" 
"WHOSE MOVE IS IT?" 

ІНІСІ ; Control-\ 
"РхРер" 

"INVALID MOVE" 

"TRY AGAIN" 


; Valid piece characters 
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; Жжжж жож жж жж ж ЖЖЖ ЖЖЖ ЖЖЖ ЖЖЖ ЖЖЖ ЖОЖ Ж Ж ООЖ 
; VARIABLES 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


BRDPOS: .BLKB 1; Index into the board array 

ANBDPS: .BLKB Lx Additional index required for ANALYS 

INDXER: .WORD ВІВАЅЕ ; Index into graphics data base 

NORMAD: .BLKW 1; The address of the upper left hand 
corner of the square on the board 

LINECT: .BYTE 0; Current line number 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; MACRO DEFINITIONS 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
; All input/output to SARGON is handled in the form of macro calls to 
; simplify conversion to alternate systems. All of the input/output macros 
; conform to the Jove monitor of the Jupiter III computer. 
р жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
,жжж OUTPUT *** 
.DEFINE CARRET- 


[RST 7 
.BYTE | 92H, UAH 
.WORD ө] 


;*** CLEAR SCREEN *** 
.DEFINE CLRSCR- 
[RST 7 
.BYTE | 0B2H,lAH 
.WORD ~~ BLANKR, 1] 
;*** PRINT ANY LINE (NAME, LENGTH) *** 
.DEFINE PRTLIN[NAME, LNGTH)= 
[RST 7 
.BYTE | 0B2H,lAH 
.WORD МАМЕ, LNGTH] 
;*** PRINT ANY BLOCK (NAME, LENGTH) *** 
.DEFINE PRTBLK[NAME, LNGTH]= 
[RST 7 
.BYTE ОВЗН, LAH 
.WORD МАМЕ, LNGTH] 
;*** EXIT TO MONITOR *** 
.DEFINE EXIT- 
[RST 7 
.BYTE ӨІЕН) 
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; MAIN PROGRAM DRIVER 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; FUNCTION: -- To coordinate the game moves. 
; CALLED BY: -- None 


; CALLS: -- INTERR 
Н INITBD 
; DSPBRD 
Е CPTRMV 
H PLYRMV 
Н TBCPCL 
; PGIFND 
; MACRO CALLS: CLRSCR 
Н CARRET 
; PRTLIN 
; PRTBLK 
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DRIVER: 


DRIVO1: 
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; ARGUMENTS: None 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

„ОС START+LAQOH ; Above the move logic 
LXI SP,STACK ; Set stack pointer 
CLRSCR ; Blank out screen 
PRTLIN GRTTNG,34 ; Output greeting 
CALL CHARTR ; Accept answer 
CARRET ; New line 
CPI 59H ; Is ita 'Y'? 
JNZ ANALYS ; Yes - jump 
SUB A ; Code of White is zero 
STA COLOR ; White always moves first 


DRIVO4: 


CALL INTERR ; Players color/search depth 
CALL INITBD ; Initialize board array 


MVI А, 1 ; Move number is 1 at at start 
STA MOVENO ; Save 

STA LINECT ; Line number is one at start 
LXI H,MVENUM ; Address of ascii move number 
MVI M, 30H ; Init to '01 ' 

INX H 

MVI M,31H 

INX H 

MVI M, 20H 

CALL DSPBRD ; Set up graphics board 

PRTLIN TITLE4,15 ; Put up player headings 
PRTLIN TITLE3,15 

PRTBLK MVENUM,3 ; Display move number 
LDA KOLOR ; Bring in computer's color 

ANA A ; Is it white ? 

JRNZ DR08 ; No - jump 
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DR08: 


DROC: 


DR10: 


CALL PGIFND ; New page if needed 

CPI 1; Was раде turned ? 

CZ TBCPCL ; Yes - Tab to computers column 
CALL CPTRMV ; Make and write computers move 
PRTBLK  SPACE,1 ; Output a space 

CALL PLYRMV ; Accept and make players move 
CARRET ; New line 

JMPR DROC ; Jump 

CALL PLYRMV ; Accept and make players move 
PRTBLK  SPACE,1 ; Output a space 

CALL PGIFND ; New page if needed 

CPI 1-53 Was page turned ? 

CZ TBCPCL ; Yes - Tab to computers column 
CALL CPTRMV ; Make and write computers move 
CARRET ; New line 

LXI H,MVENUM+2 ; Addr of 3rd char of move 

MVI A,20H ; Ascii space 

CMP М; Is char a space ? 

MVI A,3AH ; Set up test value 

JRZ DR10 ; Yes - jump 

INR М; Increment value 

CMP М; Over Ascii 9 ? 

JRNZ DR14 ; No - jump 

MVI M,30H ; Set char to zero 

DCX Н; 2nd char of Ascii move no. 
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INR 
CMP 
JRNZ 
MVI 
DCX 
INR 
CMP 
JRNZ 
MVI 
MVI 
STA 
DR14: LXI 
INR 
JMP 
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М; Increment value 
M; Over Ascii 9 ? 
DR14 ; No - jump 

M,30H ; Set char to zero 


Н; 15% char of Ascii move no. 
M; Increment value 
M; Over Ascii 9 ? 


DR14 ; No - jump 
M,31H ; Make 1st char a one 
A,30H ; Make 3rd char a zero 


MVENUM+2 

H,MOVENO ; Hexadecimal move number 
М; Increment 

DRIVO4 ; Jump 
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; INTERROGATION FOR PLY 6 COLOR 


; FUNCTION: 


; CALLED BY: -- 
; CALLS: 


; MACRO CALLS: 
Е САККЕТ 


; ARGUMENTS: 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


-- To query the player for his choice of ply 
depth and color. 


DRIVER 
-- CHARTR 


PRTLIN 


-- Мопе 
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INTERR: PRTLIN CLRMSG,41 ; Request color choice 

CALL CHARTR ; Accept response 
CARRET ; New line 
CPI 57H ; Did player request white ? 
JRZ INO4 ; Yes - branch 
SUB A ; Set computers color to white 
STA KOLOR 
LXI Н,ТІТІЕІ ; Prepare move list titles 
LXI D, TITLE4+2 
LXI B,6 
LDIR 
LXI H, TITLE2 
LXI 0, TITLE4+9 
LXI B,6 
LDIR 
JMPR ІМ08 ; Jump 

ІМ04: MVI A,80H ; Set computers color to black 
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ІМ08: 


5ТА 
ІХІ 
ІХІ 
LXI 
LDIR 
LXI 
LXI 
LXI 
LDIR 


CALL 
CARRET ; 
LXI 
MVI 
CPI 
RM ; 
CPI 
RP ; 
SUI 
MOV 
RET ; 


KOLOR 


H, TITLE2 
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; Prepare move list titles 


О, TITLE4+2 


B,6 


, 


, 


PRTLIN  PLYDEP, 23 
CHARTR ; 


H,PLYMAX ; 


M,2 ; 
31H ; 


37H ; 


30H ; 
M,A ; 


H,TITLEI 
D, TITLE4+9 
B,6 


; Request depth of search 
Accept response 

New line 

Address of ply depth variabl 
Default depth of search 

Under minimum of 1 ? 

Yes - return 

Over maximum of 6 ? 

Yes - return 

Subtract Ascii constant 

Set desired depth 

Return 
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COMPUTER MOVE ROUTINE 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


То control the search for the computers move 


and the display of that move on the board 
and in the move list. 


DRIVER 


FCDMAT 
MOVE 
EXECMV 
BITASN 
INCHK 


CARRET 


FNDMOV 


PRTBLK 


None 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; FUNCTION: 

; CALLED BY: -- 

; CALLS: 

; MACRO CALLS: 

; ARGUMENTS: 

CPTRMV: CALL 
LHLD 
SHLD 
LDA 
CPI 
JRNZ 
MVI 
CALL 

CPOC: CALL 
CALL 
MOV 


FNDMOV ; 


Select best move 


BESTM ; Move list pointer variable 


MLPTRJ 


5СОВЕ+1 


1; 
СРОС ; 
С,1; 


ЕСОМАТ ; 


MOVE ; 


EXECMV ; 


A,B ; 


Pointer to move data 
; To check for mates 
Mate against computer ? 
No - jump 
Computer mate flag 
Full checkmate ? 
Produce move on board array 
Make move on graphics board 
and return info about it 
Special move flags 
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ANA A; Special ? 
JRNZ CP10 ; Yes - jump 
MOV D,E ; "To" position of the move 
CALL BITASN ; Convert to Ascii 
S.HLD MVEMSG+3 ; Put in move message 
MOV D,C ; "From" position of the move 
CALL BITASN ; Convert to Ascii 
SHLD MVEMSG ; Put in move message 
PRTBLK MVEMSG,5 ; Output text of move 
JMPR CPLC ; Jump 

CP10: BIT 1,B; King side castle ? 
JRZ .*11 ; No - jump 


PRTBLK 0.0,5 ; Output "0-0" 

JMPR CPlC ; Jump 

BIT 2,8; Queen side castle ? 
JRZ .*11 ; No - jump 


Image of page 74 for reference 


PRTBLK 0.0.0,5 ; Output "0-0-0" 


JMPR CPLC ; Jump 

PRTBLK P.PEP,5 ; Output "PxPep" - En passant 
СР1С: LDA COLOR ; Should computer call check ? 

MOV B,A 

XRI 80H ; Toggle color 

STA COLOR 

CALL INCHK ; Check for check 

ANA A ; Is enemy in check ? 

MOV A,B ; Restore color 

STA COLOR 

JRZ CP24 ; No - return 

CARRET ; New line 

LDA SCORE+1 ; Check for player mated 

CPI OFFH ; Forced mate ? 

CNZ TBCPMV ; No - Tab to computer column 

PRTBLK CKMSG,5 ; Output "check" 

LXI H,LINECT ; Address of screen line count 

INR М; Increment for message 
CP24: LDA SCORE+1 ; Check again for mates 

CPI OFFH ; Player mated ? 

RNZ ; No - return 

MVI C,0 ; Set player mate flag 

CALL FCDMAT ; Full checkmate ? 

RET ; Return 
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: FORCED MATE HANDLING 

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX~XXXXXX 

; FUNCTION: -- To examine situations where there exits 
Е а forced mate and determine whether ог 
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; CALLED BY: 
; CALLS: 


; ARGUMENTS: 
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not the current move is checkmate. If it is, 
a losing player is offered another game, 
while a loss for the computer signals the 
King to tip over in resignation. 

-- CPTRMV 

-- MATED 

CHARTR 

TBPLMV 

-- The only value passed in a register is the 
flag which tells FCDMAT whether the computer 
or the player is mated. 


; хххххххххххх*хххххххххххххххххххххххххххххххххххххххххххххх 


FCDMAT: LDA 
MOV 
LDA 
SUB 
ANA 
JRNZ 
BIT 
JRZ 
CARF9T 
PRTLIN 
CALL 
PRTLIN 
JMPR 
FM04: PRTLIN 
PRTLIN 
FMO8: POP 
POP 
CALL 
FMO9: CLRSCR 
PRTLIN 
JMP 
FMOC: BIT 
RNZ 
CARRET 
ADI 
STA 
PRTLIN 
CALL 
RET 


MOVENO ; Current move number 
B,A ; Save 
PMATE ; Move number where mate occurs 
B ; Number of moves till mate 
A ;Checkmate ? 
FMOC ; No - jump 
0,C ; Check flag for who is mated 
FM04 ; Jump if player 
; New line 
CKMSG,9 ; Print "CHECKMATE" 
MATED ; Tip over King 
UWIN,7 ; Output "YOU WIN" 
FM08 ; Jump 


MTMSG,4 ; Output "MATE" 
IWIN,5 ; Output "I WIN" 
H ; Remove return addresses 
H 
CHARTR ; Input any char to play again 
; Blank screen 
AGAIN, 22 "CARE FOR ANOTHER GAME?" 


DRIVOl ; Jump (Rest of game init) 
0,C ; Who has forced mate ? 

; Return if player 

; New line 
30H ; Number of moves to Ascii 
MTPL ; Place value in message 


MTMSG,9 ; Output "MATE IN x MOVES" 
TBPLMV ; Tab to players column 
; Return 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; TAB TO PLAYERS COLUMN 


; FUNCTION: 


; CALLED BY: -- 
; CALLS: 


; MACRO CALLS: 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


-- To space over in the move listing to the 
column in which the players moves are being 
recorded. This routine also reprints the 

move number. 

PLYRMV 


-- None 


PRTBLK 
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TB 


TA 


TB 
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; ARGUMENTS: -- Мопе 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


РІСІ: PRTBLK MVENUM,3 ; Reproduce move number 
LDA KOLOR ; Computers color 
ANA A; Is computer white ? 
RNZ ; No - return 
PRTBLK SPACE,6 ; Tab to next column 


RET ; Return 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


B TO COMPUTERS COLUMN 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


FUNCTION: -- To space over in the move listing to the 
column in which the computers moves are 
being recorded. This routine also reprints 
the move number. 
CALLED BY: -- DRIVER 
CPTRMV 
CALLS: -- Мопе 


MACRO CALLS: PRTBLK 


ARGUMENTS: == None 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


CPCL: PRTBLK MVENUM,3 ; Reproduce move number 
LDA KOLOR ; Computer's color 
ANA А; Is computer white ? 
RZ ; Yes - return 
PRTBLK  SPACE,6 ; Tab to next column 


RET ; Return 
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TA 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


TAB TO PLAYERS COLUMN W/O MOVE МО. 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


FUNCTION: -- Like TBPLCL, except that the move number 
is not reprinted. 

CALLED BY: -- FCDMAT 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
TBPLMV: PRTBLK ЅРАСЕ, З 

LDA KOLOR 

ANA A 

RNZ 

PRTBLK SPACE,6 

RET 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


В TO COMPUTERS COLUMN W/O MOVE МО. 

жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

FUNCTION: -- Like TBCPCL, except that the move number 
is not reprinted. 
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;CALLED BY: -- CPTRMV 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


TBCPMV: PRTBLK ЅРАСЕ, З 


LDA KOLOR 
ANA A 

RZ 

PRTBLK SPACE,6 
RET 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


BOARD INDEX TO ASCII SQUARE NAME 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
Еумсттом: -- To translate a hexadecimal index in the 
board array into an ascii description 
of the square in algebraic chess notation. 


CALLED BY: -- CPTRMV 
CALLS: -- DIVIDE 
ARGUMENTS: -- Board index input in register D and the Ascii 


square name is output in register pair HL. 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


BITASN: SUB A ; Get ready for division 


MVI E,10 
CALL DIVIDE ; Divide 
DCR D ; Get rank on 1-8 basis 
ADI 60H ; Convert file to Ascii (a-h) 
MOV L,A ; Save 
MOV A,D ; Rank 
ADI 30H ; Convert rank to Ascii (1-8) 
MOV H,A ; Save 
RET ; Return 
Image of page 79 for reference 





жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


PLAYERS MOVE ANALYSIS 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
FUNCTION: -- To accept and validate the players move 
and produce it on the graphics board. Also 
allows player to resign the game by 
entering a control-R. 


CALLED BY: -- DRIVER 
CALLS: -- СНАКТА 
ASNTBI 
VALMOV 
EXECMV 
PGIFND 
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; ARGUMENTS: 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


PLYRMV: CALL 
CPI 
JZ 
MOV 
CALL 
MOV 
CALL 
SUB 
JRZ 
STA 
CALL 
CALL 
MOV 
CALL 
MOV 
CALL 
SUB 
JRZ 
STA 
CALL 
ANA 
JNZ 
CALL 
RET 

PLO8: LXI 
INR 
INR 
CARRET 
CALL 
PRTLIN 
PRTLIN 
CALL 
JMP 
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TBPLCL 
-- None 


CHARTR ; Accept "from" file letter 


12H ; Is it instead a Control-R ? 
FM09 ; Yes - jump 

H,A ; Save 

CHARTR ; Accept "from" rank number 
L,A ; Save 

ASNTBI ; Convert to a board index 

B ; Gives board index, if valid 
PLOS ; Jump if invalid 


MVEMSG ; Move list "from" position 
CHARTR ; Accept separator & ignore it 
CHARTR ; Repeat for "to" position 


H,A 
CHARTR 
L,A 
ASNTBI 
B 
PL08 
MVEMSG+1 ; Move list "to" position 
VALMOV ; Determines if a legal move 
A ; Legal ? 
PL08 ; No - jump 
EXECMV ; Make move on graphics board 
; Return 
H,LINECT ; Address of screen line count 
M ; Increase by 2 for message 
M 
; New line 
PGIFND ; New page if needed 
INVAL1,12 ; Output "INVALID MOVE" 
INVAL2,9 ; Output "TRY AGAIN" 
TBPLCL ; Tab to players column 
PLYRMV ; Jump 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
ASCII SQUARE NAME TO BOARD INDEX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


; FUNCTION: -- To convert an algebraic square name in 
р Ascii to а hexadecimal board index. 

В This routine also checks the input for 

E validity. 

; CALLED BY: -- PLYRMV 

; CALLS: -- MLTPLY 

; ARGUMENTS: -- Accepts the square name in register pair HL and 


; outputs the board index in register A. Register 
; B = 0 if ok. Register B = Register A if invalid. 
JOOO000000000000000000000000000000000000000000000000000OOOXX(X 


ASNTBI: MOV 
SUI 
CPI 
JM 


A,L ; Ascii rank 

30H ; Rank 1 - 8 

1 ; Check lower bound 
АТО4 ; Jump if invalid 
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CPI 
JRNC 
INR 
MOV 
MVI 
CALL 
MOV 
SUI 
CPI 
JM 
CPI 
JRNC 
ADD 
MVI 
RET 
АТ04: MOV 
RET 
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9 ; Check upper bound 
АТО4 ; Jump if invalid 
A. ; Rank 2 - 9 
D,A ; Ready for multiplication 
E,10 
MLTPLY ; Multiply 
A,H ; Ascii file letter (a - h) 
40H ; File 1 - 8 
1 ; Check lower bound 
АТО4 ; Jump if invalid 
9 ; Check upper bound 
AT04 ; Jump if invalid 
D ; File+Rank(20-90)=Board index 
B,0 ; Ok flag 
; Return 
B,A ; Invalid flag 
; Return 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; VALIDATE MOVE SUBROUTINE 


; FUNCTION: 
; CALLED BY: -- 


; CALLS: 


; ARGUMENTS: -- 
; invalid move. 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


-- To check a players move for validity. 
PLYRMV 

-- GENMOV 

MOVE 

INCHK 

UNMOVE 


Returns flag in register A, 0 for valid and 1 for 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


VALMOV: LHLD 
PUSH 
LDA 
XRI 
STA 
LXI 
SHLD 
LXI 
SHLD 
CALL 
LXI 

VA5: LDA 
CMP 
JRNZ 
LDA 
CMP 
JRZ 

VA6: MOV 
MOV 
XRA 
CMP 
JRZ 
PUSH 


MLPTRJ ; Save last move pointer 


H ; Save register 

KOLOR ; Computers color 

80H ;Toggle color 

COLOR ; Store 

H,PLYIX-2 ; Load move list index 
MLPTRI 

H,MLIST+1024 ; Next available list pointer 
MLNXT 

GENMOV ; Generate opponents moves 
X,MLIST+1024 ; Index to start of moves 
MVEMSG ; "From" position 

MLFRP (X) ; Is it in list ? 

VA6 ; No - jump 

MVEMSG+L ; "To" position 

MLTOP(X) ; Is it in list ? 

VA7 ; Yes - jump 

E,MLPTR(X) ; Pointer to next list move 
D,MLPTR+1 (X) 

A ; At end of list ? 

D 

VA10 ; Yes - jump 

D ; Move to X register 
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POP X 
JMPR VA5 ; Jump 
VAT: SIXD MLPTRJ ; Save opponents move pointer 
CALL MOVE ; Make move on board array 
CALL INCHK ; Was it a legal move ? 
ANA A 
JRNZ VA9 ; No - jump 
МАВ: РОР H ; Restore saved register 
RET ; Return 
VA9: CALL UNMOVE ; Un-do move on board array 
VA10: MVI Al; Set flag for invalid move 
POP Н; Restore saved register 
SHLD MLPTRJ ; Save move pointer 
RET ; Return 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; АССЕРТ ТМРИТ СНАВАТЕК 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

; FUNCTION: -- Accepts a single character input from the 
; console keyboard and places it in the A 

р register. The character is also есһоеа on 

р the video screen, unless it is а carrage 

; return, line feed, or backspace. Lower case 

; alphabetic characters are folded to upper case. 


; CALLED BY: -- DRIVER 

+ INTERR 

В PLYRMV 

; ANALYS 

; CALLS: -- Мопе 

; ARGUMENTS: -- Character input is output in register A. 
В NOTES: -- This routine contains а reference to a 


H monitor function of the Jove monitor, there- 
р for the first few lines of this routine are 


; system dependent. 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


CHARTR: RST 7 ; Jove monitor single char inpt 
.BYTE 81H,0 
CPI ODH ; Carriage return ? 
RZ ; Yes - return 
CPI OAH ; Line feed ? 
RZ ; Yes - return 
CPI 08H ; Backspace ? 
RZ ; Yes - return 
RST 7; Jove monitor single char echo 
.BYTE 81H, ДАН 
ANI 7FH ; Mask off parity bit 
CPI 7BH ; Upper range check (2-1) 
RP ; No need to fold - return 
CPI 61H ; Lower-range check (a) 
RM ; No need to fold - return 
SUI 20H ; Change to one of A-Z 
RET ; Return 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; NEW PAGE IF NEEDED 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; FUNCTION: -- To clear move list output when the column 
А has been filled. 


; CALLED BY: -- DRIVER 

; PLYRMV 

E CPTRMV 

; CALLS: -- DSPBRD 

; ARGUMENTS: -- Returns a 1 in the A register if a new 


; page was turned. 
р ХХЖ*ЖХЖХХ ЖХХ ok on KH HK KKK ЖЖ kky% KKK KKK KEK ЖЖ ХХХ ЖХХ 
PGIFND: LXI H,LINECT ; Addr of page position counter 


INR M ; Increment 

MVI А, 1BH ; Page bottom ? 
CMP M 

RNC ; No - return 


CALL DSPBRD ; Put up new page 
PRTLIN TITLE4,15 ; Re-print titles 
PRTLIN TITLE3,15 


MVI A,1 ; Set line count back to 1 
STA LINECT 
RET ; Return 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; DISPLAY MATED KING 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


Н FUNCTION: -- To tip over the computers King when 
; mated. 


; CALLED BY: -- FCDMAT 
; CALLS: -- CONVRT 


; BLNKER 
: INSPCE (Abnormal Call to ІР04) 


; ARGUMENTS: -- None 
FKK K K K K K K K K K FK K K FK K FK K K FK K FK FK K FK K K FK K FK K K FK K FK K K FK K K K K K K K K K K K K K K Æ K K K K K 
MATED: LDA KOLOR ; Computers color 
ANA A ; Is computer white ? 
JRZ .+9 ; Yes - skip 
MVI С,2 ; Set black piece flag 
LDA POSK+1 ; Position of black King 
JMPR МА08 ; Jump 
MOV C,A ; Clear black piece flag 
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LDA POSK ; Position of white King 
MA08: STA BRDPOS ; Store King position 

STA ANBDPS ; Again 

CALL CONVRT ; Getting norm address in HL 

MVI A,7 ; Piece value of toppled King 

MVI B,10 ; Blink parameter 

CALL BLNKER ; Blink King position 

LXI Y,MAOC ; Prepare for abnormal call 

PUSH Y 

PUSH H 

PUSH B 

PUSH D 

PUSH X 

PUSH PSW 

JMP IP04 ; Call INSPCE 
MAOC: MVI B,10 ; Blink again 

LDA ANBDPS 

STA BRDPOS 

CALL BLNKER 

RET ; Return 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; SET UP POSITION FOR ANALYSIS 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


FUNCTION: -- To enable user to set ир any position 
for analysis, or to continue to play 
the game. The routine blinks the board 
squares in turn and the user has the option 
of leaving the contents unchanged by a 
carriage return, emptying the square by a 0, 
or inputting a piece of his chosing. To 
enter a piece, type in piece-code,color-code, 
moved- code. 


Piece-code is a letter indicating the 


; desired piece: 


К - King 
Q - Queen 
В - Rook 
В - Bishop 
N - Knight 
P - Pawn 


; Color code is a letter, W for white, or B for 


black. 


; Moved-code is a number. 0 indicates the piece has never 
; moved. 1 indicates the piece has moved. 


; A backspace will back up in the sequence of blinked 


squares. An Escape will terminate the blink cycle and 


; verify that the position is correct, then procede 
; with game initialization. 


; CALLED BY: -- DRIVER 
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; CALLS: 


; MACRO CALLS: 


ARGUMENTS: 


DPSBRD 
BLNKER 
ROYALT 
PLYRMV 
CPTRMV 


EXIT 

CLRSCR 
PRTBLK 
CARRET 
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CHARTR 


PRTLIN 


None 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
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ANALYS: PRTLIN  ANAMSG, 37 


CALL 


CARRET ; 


CPI 
JRNZ 
EXIT 
AN04: CALL 
MVI 
АМ08: 5ТА 
5ТА 
CALL 
STA 
LIXD 
MOV 
CPI 
JRZ 
MVI 
CALL 
CALL 
CPI 
JRZ 
CPI 
JRZ 
CPI 
JRZ 
LXI 
LXI 


CCIR ; 


JRNZ 
CALL 
CALL 
CPI 
JRNZ 
SET 
CALL 
CALL 
CPI 
JRNZ 
SET 


, 


"CARE TO ANALYSE A POSITION?" 


CHARTR ; Accept answer 
New line 

4EH ; Is answer a "N" ? 
АМ04 ; No - jump 

Return to monitor 
DSPBRD ; Current board position 
A,21 ; First board index 
ANBDPS ; Save 
BRDPOS 
CONVRT ; Norm address into HL register 
М1; Set up board index 
М1 
A,BOARD(X) ; Get board contents 
OFFH ; Boarder square ? 
AN19 ; Yes - jump 
B,4H ; Ready to blink square 
BLNKER ; Blink 
CHARTR ; Accept input 
1BH ; Is it an escape ? 
АМВ ; Yes - jump 
08H ; Is it a backspace ? 
ANIA ; Yes - jump 
ODH ; Is it a carriage return ? 
AN19 ; Yes - jump 
B,7 ; Number of types of pieces + 1 


H,PCS ; Address of piece symbol table 


AN18 ; 
CHARTR 
CHARTR 
42H ; 
.+4 ; 
7,C ; 
CHARTR 
CHARTR 
31H ; 
AN18 ; 
3,C > 


Search 

Jump if not found 

i Accept and ignore separator 
Е Color of piece 

Is it black ? 

No - skip 

Black piece indicator 

; Accept and ignore separator 


; Moved flag 
Has piece moved ? 
No - jump 


Set moved indicator 
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AN18: MOV BOARD(X),C ; Insert piece into board array 
CALL DSPBRD ; Update graphics board 

АМ19: LDA ANBDPS ; Current board position 
INR A; Next 
CPI 99 ; Done ? 


JRNZ ANO8 ; No - jump 
JMPR ANO4 ; Jump 
ANIA: LDA ANBDPS ; Prepare to go back a square 
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SUI 3 å To get around boarder 

CPI 20 ; Off the other end ? 

JNC ANO8 ; No - jump 

MVI A,98 ; Wrap around to top of screen 
ANOB: JMP ANO8 ; Jump 
АМВ: PRTLIN  СКТМЕ5, 14 ; Ask if correct 

CALL CHARTR ; Accept answer 

CPI 4EH ; Is it "N" ? 

JZ АМ04 ; No - jump 

CALL ROYALT ; Update positions of royalty 

CLRSCR ; Blank screen 

CALL INTERR ; Accept color choice 
АМС: PRTLIN WSMOVE,17 ; Ask whose move it is 


CALL CHARTR ; Accept response 
CALL DSPBRD ; Display graphics board 


PRTLIN TITLE4,15 ; Put up titles 
PRTLIN TITLE3,15 
CPI 57H ; Is is whites move ? 
JZ DRIV04 ; Yes - jump 
PRTBLK MvENUM,3 ; Print move number 
PRTBLK SPACE,6 ; Tab to blacks column 
LDA KOLOR Н Computer's color 
ANA A Я Is computer white ? 
JRNZ AN20 : No - jump 
CALL PLYRMV ; Get players move 
CARRET H New line 
JMP DROC ; Jump 

AN20: CALL CPTRMV ; Get computers move 
CARRET Н New line 
JMP DROC р Jump 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; UPDATE POSITIONS OF ROYALTY 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


; FUNCTION: -- To update the positions of the Kings 
Н and Queen after a change of board position 
i in ANALYS. 
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; CALLED BY: 
; CALLS: 


; ARGUMENTS: 


-- ANALYS 
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None 


None 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


ROYALT: LXI 
MVI 
MVI 
INX 
DJNZ 
MVI 
RY04: STA 
LXI 
LIXD 
MOV 
BIT 
JRZ 
INX 
ANI 
CPI 
JRZ 
CPI 
JRNZ 
INX 
INX 
RY08: LDA 
MOV 
RYOC: LDA 
INR 
CPI 
JRNZ 
RET 


Н, POSK 


Н, POSK 
М1 


A,BOARD(X) 
; Test color bit 


7,A 
+3 

H 

7 
KING 
RY08 
QUEEN 
RYOC 


М1 
M,A 
М1 


99 
RY04 


Start of Royalty array 


; Clear all four positions 


First board position 


; Set up board index 
; Address of King position 


;Fetch board contents 


; Jump if white 

; Offset for black 

; Delete flags, leave piece 
; King ? 

; Yes - jump 

; Queen ? 

; No - jump 


Queen position 
Plus offset 
Index 

Save 

Current position 
Next position 
Done.? 

No - jump 

Return 
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; SET UP EMPTY BOARD 


; FUNCTION: 


; CALLED BY: 


; CALLS: 


-- DRIVER 
; ANALYS 
E PGIFND 


Н ARGUMENTS: 


; NOTES: 


DSPBRD: PUSH 


PUSH 
PUSH 
PUSH 


PSW 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


Diplay graphics board and pieces. 


CONVRT 
INSPCE 

None 

This routine makes use of several fixed 
addresses in the video stoFage area of 
the Jupiter III computer, and is therefor 
system dependent. Each such reference will 
be marked. 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


B ; Save registers 
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CLRSCR ; Blank screen 
LXI H, OCOOOH ; System Dependent-First video 
address 
MVI M, 80H ; Start of blank border 
LXI D,0C001H ; Sys Dep- Next boarder square 
LXI 8,15 ; Number of bytes to be moved 
LDIR ; Blank boarder bar 
MVI M,OAAH ; First black boarder box 
INR L ; Next block address 
MVI B,6 ; Number to be moved 
DB04: MVI M, 80H ; Create white block 
INR L ; Next block address 
DJNZ 0804 ; Done ? № - jump 
MVI B,6 ; Number of repeats 
DB08: MVI M,OBFH ; Create black box 
INR L ; Next block address 
DJNZ DB08 ; Done ? No - jump 
XCHG ; Get ready for block move 
LXI B,36 ; Bytes to be moved 
LDIR ; Move - completes first bar 
LXI H, OCOOOH ; SD - First addr to be copied 
LXI B,ODOH ; Number of blocks to move 
LDIR ; Completes first rank 
LXI H, OCO16H ; SD - Start of copy area 
LXI B,6 ; Number of blocks to move 
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LDIR ; First black square done 
LXI H, OCOLOH ; S D - Start copy area 
LXI B,42 ; Bytes to be moved 
LDIR ; Rest of bar done 
LXI H,0C100H ; S D - Start of copy area 
LXI B,OCOH ; Move three bars 
LDIR ; Next rank done 
LXI H,0C000H ; S D - Copy rest of screen 
LXI B,600H ; Number of blocks 
LDIR ; Board done 
BSETUP: MVI A,21 ; First board index 
В5ЕТ04: STA BRDPOS ; Ready parameter 


CALL CONVRT ; 
CALL INSPCE ; 


Norm addr into HL regtisters 
Insert that piece onto board 


INR А; Next square 

CPI 99 ; Done ? 

JRC BSET04 ; No - jump 
POP PSW ; Restore registers 
POP H 

POP D 

POP B 

RET 
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; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
; INSERT PIECE SUBROUTINE 
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


; FUNCTION: 


; CALLED BY: 
; CALLS: 


; ARGUMENTS: 


-- This subroutine places a piece onto a 
given square on the video board. The piece 
inserted is that stored in the board array 
for that square. 

-- DPSPRD 

MATED 

-- MLTPLY 


-- Norm address for the square in register pair HL. 


; ХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХ 


INSPCE: PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
LDA 
STA 
LIXD 
MOV 
ANA 
JRZ 
CPI 
JRZ 
MVI 
BIT 
JRZ 
MVI 
IP04: ANI 
DCR 
MOV 
MVI 
CALL 
M'OV 
STA 
LIXD 
BIT 
JRZ 
INR 
ІР08: INR 
PUSH 
MVI 
IPOC: MVI 
IP10: MOV 
BIT 


H ; Save registers 

B 

D 

X 

PSW 

BRDPOS ; Get board index 

М1 ; Save 

М1 ; Index into board array 
A,BOARD(X ; Contents of board array 
A ; Is square empty ? 

IP2C ; Yes - jump 

OFFH ; Is it a boarder square ? 
IP2C ; Yes - jump 

C,0 ; Clear flag register 

7,A ; Is piece white ? 

1Р04 ; Yes - jump 

С,2 ; Set black piece flag 

7 ; Delete flags, leave piece 
A ; Piece on a 0 - 5 basis 
E,A ; Save 

D,16 ; Multiplier 

MLTPLY ; For loc of piece in table 
A,D ; Displacement into block table 


INDXER ; Low order index byte 
INDXER ; Get entire index 


0,М ; 15 square white ? 

IP08 ; Yes - jump 

C ; Set compliment flag 

L ; Address of first alter block 
H ; Save 

D,@ ; Bar counter 

B,4 ; Block counter 

A,BLOCK(X) ; Bring in source block 
0,C ; Should it be complemented ? 
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JRZ 
XRI 
IP14: MOV 
INR 
INX 
DJNZ 
MOV 
ADI 


IP14 ; No - jump 

3FH ; Graphics complement 
M,A ; Store block 

L ; Next block 

X ; Next source block 
"P10 ; Done ? No - jump 
A,L ; Bar increment 

3CH 
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MOV 
INR 
BIT 
JRZ 
POP 
BIT 
JRNZ 
BIT 
JRNZ 
JMPR 
IP18: BIT 
JRZ 
IPlC: MVI 
CALL 
MOV 
STA 
LIXD 
MOV 
ADI 
MOV 
MVI 
IP20: MVI 
IP24: MOV 
BIT 
JRNZ 
XRI 
IP28: MOV 
INR 
INX 
DJNZ 
MOV 
ADI 
MOV 
INR 
BIT 
JRZ 
IP2C: POP 
POP 
POP 
POP 
POP 
RET 
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L,A 

D ; Bar counter 

2,D ; Done ? 

IPOC ; No - jump 

H ; Address of Norm + 1 
0,C ; Is square white ? 
IP18 ; No - jump 

1,C ; Is piece white ? 
IP2C ; No - jump 

IPIC ; Jump 

1,C ; Is piece white ? 
IP2C ; Yes - jump 

D,6 ; Multiplier 

MLTPLY ; Multiply for displacement 
A,D ; Kernel table displacement 
INDXER ; Save 

INDXER ; Get complete index 
A,L ; Start of Kernel 

40H 

L,A 

0,0 ; Bar counter 

B,3 ; Block counter 
A,KERNEL (X) ; Kernel block 
1,C ; Need to complement ? 
IP28 ; No - jump 

3FH ; Graphics complement 
M,A ; Store block 

L ; Next target block 
X ; Next source block 
IP24 ; Done ? No - jump 
A,L ; Bar increment 

3DH 

L,A 

D ; Bar counter 

1,D ; Done ? 

IP20 ; Repeat bar move 

PSW ; Restore registers 

X 

D 

B 

H 


Image of page 93 for reference 





jOXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
; BOARD INDEX TO NORM ADDRESS SUBR. 

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
Н FUNCTION: 


H CALLED BY: 


р CALLS: 


; ARGUMENTS: 


-- Converts а hexadecimal board index into 
a Norm address for the square. 

-- DSPBRD 

INSPCE 

ANALYS 

MATED 

DIVIDE 

MLTPLY 

Returns the Norm address in register pair 

HL. 


І ХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХ 


CONVRT: PUSH 


B 


; Save registers 
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PUSH D 

PUSH PSW 

LDA BRDPOS ; Get board index 
MOV D,A ; Set up dividend 
SUB A 

MVI E,10 ; Divisor 


CALL DIVIDE ; Index into rank and file 
; file (1-8) & rank (2-9) 


DCR D ; For rank (1-8) 

DCR A ; For file (0-7) 

MOV C,D ; Save 

MVI D,6 ; Multiplier 

MOV E,A ; File number is multiplicand 
CALL MLTPLY ; Giving file displacement 
MOV A,D ; Save 

ADI 10H ; File norm address 

MOV L,A ; Low order address byte 
MVI A,8 ; Rank adjust 

SUB C ; Rank displacement 

ADI OCOH ; Rank Norm address 

MOV H,A ; High order addres byte 
POP PSW ; Restore registers 

POP D 

POP B 

RET ; Return 
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jOXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
; POSITIVE INTEGER DIVISION 

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
DIVIDE: PUSH B 


MVI B,8 
DD04: SLAR D 
RAL 
SUB E 
JM .*6 
INR D 
JMPR .+3 
ADD E 
DJNZ DD04 
POP B 
RET 


; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
; POSITIVE INTEGER MULTIPLICATION 

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
MLTPLY: PUSH B 


SUB A 
MVI B,8 

ML04: BIT 0,D 
JRZ .+3 
ADD E 
SRAR A 
RARR D 
DJNZ MLO4 
POP B 
RET 
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; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
; SQUARE BLINKER 
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


; FUNCTION: -- To blink the graphics board square to signal 
; a piece's intention to move, or to high- 
; light the square as being alterable 


А in ANALYS. 
; CALLED BY: -- MAKEMV 
А ANALYS 
: MATED 
; CALLS: - - None 
; ARGUMENTS: -- Norm address of desired square passed in register 
; pair HL. Number of times to blink passed in 
; register B. 
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
BLNKER: PUSH PSW ; Save registers 
PUSH B 
PUSH D 
PUSH H 
PUSH X 
SHLD NORMAD ; Save Norm address 
BL04: MVI 0,0 ; Bar counter 
BL08: MVI C,0 ; Block counter 
BLOC: MOV AIM ; Fetch block 
XRI 3FH ; Graphics complement 
MOV M,A ; Replace block 
INR L ; Next block address 
INR C ; Increment block counter 
MOV A,C 
CPI 6 ; Done ? 
JRNZ BLOC ; No - jump 
MOV A,L ; Address 
ADI 3AH ; Adjust square position 
MOV L,A ; Replace address 
INR D ; Increment bar counter 
BIT 2,D ; Done ? 
JRZ BL08 ; No - jump 
LHLD NORMAD ; Get Norm address 
PUSH B ; Save register 
LXI B,3030H ; Delay loop, for visibility 
BL10: DJNZ BL10 
DCR C 
JRNZ BL10 
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POP B ; Restore register 
DJNZ BLO4 ; Done ? No - jump 


22/8/21 8:06 a. m. 


Firefox 


78 de 93 


https://web.archive.org/web/20070614114334/http... 


POP X ; Restore registers 
POP H 

POP D 

POP B 

POP PSW 

RET ; Return 
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, 


EXECMV: PUSH X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
EXECUTE MOVE SUBROUTINE 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
FUNCTION: -- This routine is the control routine for 

MAKEMV. It checks for double moves and 

sees that they are properly handled. It 

sets flags in the B register for double 

moves: 

En Passant -- Bit 0 


CALLED BY: -- PLYRMV 
CPTRMV 


CALLS: -- MAKEMV 


ARGUMENTS: -- Flags set in the B register as described 
above. 


; ХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХ 


; Save registers 


PUSH PSW 
LIXD MLPTRJ ; Index into move list 
MOV C, MLPRP (X) ; Move list "from" position 
MOV E,MLTOP(X) ; Move list "to" position 
CALL MAKEMV ; Produce move 
MOV D,MLFLG (X) ; Move list flags 
MVI B,0 
BIT 6,D ; Double move ? 
JRZ EX14 ; No - jump 
LXI D,6 ; Move list entry width 
DADX D ; Increment MLPTRJ 
MOV C, MLFRP(X) ; Second "from" position 
MOV E, MLTOP (X) ; Second "to" position 
MOV A,E ; Get "to" position 
CMP C ; Same as "from" position ? 
JRNZ EX04 ; No - jump 
INR B ; Set en passant flag 
JMPR EX10 ; Jump 
EX04: CPI 1AH ; White 0-0 ? 
JRNZ EX08 ; No - jump 
SET 1,8 ; Set 0-0 flag 
JMPR EX10 ; Jump 
EX08: CPI 60H ; Black 0-0 ? 
JRNZ EXOC ; No - jump 
SET 1,8 ; Set 0-0 flag 
JMPR 8X10 ; Jump 
EXOC: SET 2,B ; Set 0-0-0 flag 
EX10: CALL МАКЕМУ ; Make 2nd move on board 
EX14: POP PSW ; Restore registers 
POP X 
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RET ; Return 
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; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
; MAKE MOVE SUBROUTINE 

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

; FUNDTION: -- Moves the piece on the board when a move 
р is made. It blinks both the "from" and 

Н "to" positions to give notice of the move. 


; CALLED BY: -- EXECMV 

; CALLS: -- CONVRT 

р BLNKER 

i INSPCE 

; ARGUMENTS: -- The "from" position is passed in register C, and the 


; "to" position in register E. 
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


MAKEMV: PUSH PSW ; Save register 
PUSH B 
PUSH D 
PUSH H 
MOV A,C ; "From" position 
STA BRDPOS ; Set up parameter 
CALL CONVRT ; Getting Norm address in HL 
MVI B,10 ; Blink parameter 
CALL BLNKER ; Blink "from" square 
MOV A,M ; Bring in Norm 1plock 
INR L ; First change block 
MVI 0,0 ; Bar counter 

ММ04: MVI B,4 ; Block counter 

ММ08: MOV M,A ; Insert blank block 
INR L ; Next change block 
DJNZ MM08 ; Done ? No - jump 
MOV C,A ; Saving norm block 
MOV A,L ; Bar increment 
ADI 3CH 
MOV L,A 
MOV A,C ; Restore Norm block 
INR D 
BIT 2,D ; Done ? 
JRZ MM04 ; No - jump 
MOV A,E ; Get "to" position 
STA BRDPOS ; Set up parameter 
CALL CONVRT ; Getting Norm address in HL 
MVI B,10 ; Blink parameter 


CALL INSPCE ; Inserts the piece 
CALL BLNKER ; Blinks "to" square 


POP H ; Restore registers 
POP D 

POP B 

POP PSW 

RET ; Return 
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TDL/ZILOG Mnemonics Conversion 


symbols used 


SYMBOL OPERATION 


r one of the 8-bit registers A,B,C,D,E,H,L 

n any 8-bit absolute value 

ii an index register reference, either X or Y 

d an 8-bit index displacement, where -128< d< 127 
ZZ B for the BC register pair, D for the DE pair 

nn any 16-bit value, absolute or relocatable 


B for the BC register pair, D for the DE pair, H for the HL pair, SP for the 


т stack pointer 

qq B for the BC register pair, D for the DE pair, H for the HL pair, PSW for 
the A/Flag pair 

S any of r (defined above), M, ог d(ii) 

IFF interrupt flip-flop 

CY carry flip.-flop 

ZF zero flag 

tt B for the BC register pair, D for the DE pair, SP for the stack pointer, X 
for index register IX 

ni B for the BC register pair, D for the DE pair, SP for the stack pointer, Y 
for index register IY 

b a bit position in an 8-bit byte, where the bits are numbered from right to 
left 0 to 7 

PC program counter 

bin) bit n of the 8-bit value or register v 

vv/H the most significant byte of the 16-bit value or register vv 

vv/L the least significant byte of the 16-bit value or register vv 

Iv an input operation on port v 

Ov an output operation on port v 


уу «- v the value of w is replaced by the value of v 


уу <-> үу the value of w is exchanged with the value of v 
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8 Bit Load Group 
TDL ZILOG 
MNEMONIC OPERATION MNEMONIC 
MOV r,r' r е г! LD r,r' 
goy r, и ç r < (HL) LD r, (HL) 
“рк E (ъф FAN 
2 HOV r,d t < (1144) LD r(11i4d) 

an MIR ‚ AHL) +r LD (HL),r 

Бъ ы; sv Fs 
NOV dlii (11+4) < г LD (Iii+d),r 
MVI r,n rc LD r,n 
MVI M,n ы LD (HL),n 
NNYXX ap % мно | 
MVI d(ii),n (11+4) + n LD (111+4),п 
LDA nn À < (nn) LD A, (nn) 
STA an (nn) < A LD (nn),A 
LDAX 22 А * (zz) LD A,(zz) 
STAX zz (zz) * À LD (zz),A 
LDAI Att LD A,I 
LDAR А + R LD A,R 
STAI Т «А LD I,A 
STAR Rta LD R,A 
100 


# OF 
BYTES 


# OF 
T STATE 


4 

7 
19 

7 
19 

7 
14 
19 
13 
13 


22/8/21 8:06 а. m. 


Firefox https://web.archive.org/web/20070614114334/http... 


16 Bit Load Group 

TDL ZILOG # ОЕ # or 

MNEMONIC OPERATION MNEMONIC BYTES T STATES 

LXI rr,nn rr + = X LD rr,nn 3 16 

M 

КТК „мын ii + nn Iv x LD ii,nn 4 14 

LBCD nn B + (nnl) LD BC,(nn) 4 26 
C + (nn) 

LDED nn D + (пам) LD DE, (па) 4 20 
Е + (nn) 

LHLD nn Е + (nnl) LD HL, (nn) 3 16 
L + (nn) 

LIXD nn IX/H + (nm-l) LD IX, (nn) 4 20 
IX/L + (nn) 

LIYD nn IY/H + (пп+1) LD IY,(nn) 4 20 
IY/L + (nn) 

LSPD nn SP/H + (nn*l) LD SP, (nn) á, 26 
SP/L — (nn) 

SBCD nn (nml) + В LD (nn),BC _ 4 26 
(nn «С E 

SDED nn (пп+1) + D LD (nn),DE 4 20 
(n + Е 

SHLD nn (nnl) + H LD (nn),HL 5 16 
(n +L 

SIXD nn (по#1) + IX/H LD (nn),IX 4 28 
(nn) + IX/L 

STYD nn (nnl) + IY/H LD (on), IY 4 20 
(nn) + ІЛ, 

SSPD nn (пп+1) * SP/H LD (nn),SP 4 26 
(nn)  * SP/L 

SPHL SP * HL LD SP,HL 1 6 

SPIX SP * IX LD SP,IX 2 19 

SPIY SP + IY LD SP,IY 2 19 


101 
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PUSH qq 


бәситж 
PUSH ii 


POP qq 


Рортх 


POP 11 


(SP-1) + qq/H 
(SP-2) + qq/L 
SP + SP-2 
PusHIY 

(SP-1) + ii/H 
(SP-2) + 11/1, 
SP + SP-2 


qq/H * (SP-1) 

qq/L < (SP) 

SP + SP-2 
Poetry 

11/Н + (SP+1) 

ii/L + (SP) 

SP + бра? 
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PUSH qq 


PUSH ii 


POP qq 


POP 11 


https://web.archive.org/web/20070614114334/http... 


1 11 
2 15 
1 1g 
2 14 
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TDL 
MNEMONIC 


XCHG 


EXAF 


XTIX 


XTIY 


LDI 


LDIR 


LDD 


LDDR 


CCI 


CCIR 


CCD 


CCDR 


OPERATION 

HL +>DE 

PSW —PSW' 
BCDEHL «—BCDEHL' 


Н —(SP+1) 
L <+(SP) 


IX/H —(SP+1) 
IX/L «з (5Р) 


IY/H ++(SP+1) 
IY/L ++(SP) 


(DE) + (HL) 
DE + DE+1 
HL + HL+1 
BC + BC-1 


repeat LDI until BC=@ 


(DE) « (HL) 
DE < DE-1 
HL + HL-1 
BC < BC-1 


repeat LDD until ВС=@ 


A - (HL) 
HL + HL+1 
BC + BC-1 


repeat CCI until A=(HL) 
or BC=Ø 


A - (HL) 
HL + HL-1 
BC + BC-1 


repeat CCD until A=(HL) 
or BC=¢ 
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ZILOG 
MNEMONIC 


EX DE,HL 
EX AF,AF' 
EXX 


EX (SP),HL 


EX (SP),IX 


EX (SP),IY 


LDDR 


CPI 


CPIR 


CPD 


CPDR 


Exchange, Block Transfer, and Search Group 


# or 
BYTES 


1 


1 


# or 
TS S 


& 
4 
4 
19 


23 


23 


16 


21/16 
16 


21/16 
16 


21/16 


16 


21/16 


103 
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TDL 
MNEMONIC 


ADD r 
ADD M 
Bin 
ADI n 
ADC s 
ACI n 
SUB s 
SUI n 
SBB s 
SBI n 


ANA s 


ОВА s 


ORI n 


CPI n. 
INR r 
INR M 
INR d(ii) 
DCR r 
DCR M 
DCR d(ii) 
104 
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8 Bit Arithmetic and Logical 


OPERATION 
A*A+r 

А * A+ (HL) 
Къв D 

А “А + (1144) 
А +A п 


А <À + s + CY 


> 


* À + n + CY 
«А - з 
<А-п 
+ А -з- CY 
* À — n - CY 


ФА As 


т > > > > > 


«А Ло 

А “АУ з 

А “А V n 

А “Абв 

А “Аба 
А- з 

А - п 
r+r+1l 

(HL) + (HL) + 1 
(1158) < (iitd) +1 
r+r-1 

(HL) < (HL) - 1 


(iitd) + (1i+d) - 1 
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ZILOG # OF # OF 
MNEMONIC BYTES 


ADD A,r 1 4 
ADD A, (HL) 1 7 
ADD A, (111+4) 3 19 
ADD A,n 2 7 


As shown for 
ADD instruction 


ADC A,s 
ADC A,n 
SUB s 
SUB n 
SBC А, в 


SBC А, п 


AND n 
OR s 

OR n 
XOR s 
XOR n 
CP s 

CP n 
INC r 
INC (HL) 
INC (111+4) 
DEC r 
DEC (HL) 


DEC (111+4) 


T STATES 
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TDL 
MNEMONIC 


DAA 


HLT 
DI 


ЕТ 


ІМІ 


IM2 


OPERATION 


convert А to packed BCD 
after an add or subtract 
of packed BCD operands 


A + VA 

А +-А 

CY + CY 

CY + 1 

no operation 
halt 

IFF + 6 

ТЕЕ + 1 
interrupt mode $ 
interrupt mode 1 


interrupt mode 2 
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TDL 
MNEMONIC 


DAD rr 
DADC rr 
DSBC rr 
DADX tt 
DADY uu 
INX rr 
INX ii 
DCX rr 


DCX 11 


16 Bit Arithmetic Group 


OPERATION 


HL < HL + rr 


HL + HL + rr + CY 


HL + HL - rr - CY 


IX + IX + tt 
IY < IY + uu 
rr * rr 1 
іі + ii + 1 
тг + ТЕ = 1 


ii + ii 


! 
к 
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ZILOG 
MNEMONIC 


DAA 


CPL 
NEG 
CCF 
SCF 
NOP 


HALT 


EI 
ІМ 9 
IM 1 


IM 2 


ZILOG 
MNEMONIC 


ADD HL,rr 
ADC HL,rr 
SBC HL,rr 
ADD IX,tt 
ADD IY,uu 
INC rr 
INC ii 
DEC rr 


DEC ii 


General Purpose Arithmetic and Control Group 


# OF 
BYTES 


1 


# OF 
BYTES 


1 


2 


# OF 
T STATES 


4 


# OF 
STATES 


11 
15 
15 
15 
15 

6 
19 

6 
10 
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Rotate and Shift Group 
TDL ZILOG 
MNEMONIC OPERATION MNEMONIC 
RLC RLCA 
(140-504 
А 
RAL RLA 
cY]+[7_ 8] 
А 
RRC RRCA 
[> д} 
А 
RAR RRA 
[7 > 41-04) 
А 
RLCR r Same diagram as RLC r 
for RLC 
RLCR M T RLC (HL) 
ых Pb ley > 
RLCR d(ii) ” RLC (111+4) 
RALR s Same diagram as RL s 
for RAL 
RRCR s Same diagram as RRC s 
for RRC 
RARR s Same diagram as RR s 
for RAR 
SLAR s [Y]-7 + 6-0 stas 
5 
SRAR s [E > 9-8 SRA s 
5 
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# ОЕ # ОЕ 
BYTES 


4 


15 
23 


Same as for RLCR 


instruction 


T STATES 
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SRLR s Фр > а] SRL s 
5 
RLD А [17436 RLD 2 18 
š + 
RRD A |7 413 øl RRD 2 18 
+ 
(HL) [7 4|3 øl 


Bit Set, Reset, and Test Group 


TDL Z1LOG # or # ОЕ 
MNEMONIC OPERATION MNEMONIC BYTES Т STATES 
BIT b,r ZF + "ríb) BIT b,r 2 8 
BIT b,M ZF + (HL) {b} BIT Ъ, (HL) 2 12 
BIT b,d(ii) ZF + v(Iii+d)(b) BIT b,(Iii*d) 4 20 
SET b,r r(ble 1 SET b,r 2 8 
SET b,m (HL)Íb) + 1 SET b, (HL) 2 15 
SET b,d(ii) (Iiitd){b} + 1 SET Ъ, (11144) 4 23 
ВЕЗ Ъ,5 $45} < 0 RES b,s Same as for 


SET instruction 
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Jump Group 

TDL š ZILOG # ОЕ # oF 
MNEMONIC OPERATION MNEMONIC BYTES T STATES 
JMP nn PC < nn JP mn 3 10 
JZ nn if zero, then JMP JP Z,nn 3 14 

else continue 
JNZ nn if not zero JP NZ,nn 3 10 
JC nn if carry JP C,nn 3 10 
JNC nn if not carry JP NC,nn 3 1g 
JPO nn if parity odd JP PO,nn 3 16 
JPE nn if parity even JP PE,nn 3 10 
JP nn if sign positive JP P,nn 3 14 
JM nn if sign negative JP M,nn 3 10 
JO nn if overflow JP PE,nn 3 10 
JNO nn if no overflow JP РО, па 3 10 
SR 
JMPR nn РС + PC + е JR e 2 12 

where e = nn - PC 

-126< е< 129 
JRZ nn if zero, then JMPR JR Z,e 2 7/12 

else continue 
JRNZ nn if not zero JR NZ,e 2 7/12 
JRC nn if carry JR C,e 2 7/12 
JRNC nn if not carry JR NC,e 2 7/12 
DJNZ nn B+B-1 DJNZ e 2 8/13 

if B=@ then continue 
else JMPR 
PCHL РС + HL JP (HL) T á 
PCIX PC - IX JP (IX) 2 8 
РСТҮ PC + IY JP (IY) 2 8 
109 
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Call and Return Group 
TDL ZILOG # OF # OF 
MNEMONIC OPERATION MNEMONIC BYTES T STATES 
CALL nn (SP-1) — PC/H CALL nn 3 17 
(SP-2) + PC/L 
SP + SP-2 
PC < nn 
CZ nn if zero, then CALL CALL Z,nn 3 16/17 
else continue 
CNZ nn 1f not zero CALL NZ,nn 3 16/17 
CC nn if carry CALL C,nn 3 19/17 
CNC nn if not carry CALL NC,nn 3 16/17 
CPO nn if parity odd CALL PO,nn 3 18/17 
CPE nn if parity even CALL PE,nn 3 10/17 
CP nn if sign positive CALL P,nn 3 16/17 
CM nn if sign negative CALL M,nn 3 10/17 
CO nn if overflow CALL PE,nn 3 10/17 
CNO nn if no overflow CALL PO,nn 3 10/17 
КЕТ PC/H < (SP+1) RET 1 16 
PC/L + (SP) 
SP + SP+2 
RZ if zero, then RET RET Z 1 5/11 
else continue 
RNZ if not zero RET NZ 1 5/11 
RC if carry RET C 1 5/11 
RNC if not carry RET NC 1 5/11 
RPO if parity odd RET PO 1 5/11 
RPE if parity even RET PE 1 5/11 
RP if sign positive RET P 1 5/11 
RM 1f sign negative RET M i 1 5/11 
110 
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RNO 
RETI 


RETN 


RST n 


TDL 
MNEMONIC 


IN n 
INP r 


INI 


INIR 


OUT n 
OUTP r 


OUTI 


OUTIR 


OUTD 


OUTDR 


ADJPTR 
ADMOVE 
ANALYS 
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if overflow RET PE 
if no overflow RET PO 
return from interrupt RETI 
return from non- RETN 

maskable interrupt 
(SP-1) * PC/H RST n 
(SP-2) * PC/L 

PC *8*n 

where 05 n< 8 

Input and Output Group 
ZILOG 

OPERATION MNEMONIC 
А * In IN A, (n) 
r * I(C) IN r,(C) 
(HL) * I(C) INI 

В <В-1 

HL + HL +1 
repeat INI until Beg INIR 
(HL) + I(C) IND 

В 3 «В- 1 

HL + HL - 1 
repeat IND until вэб INDR 
On + А OUT (п),А 
O(C) = р OUT (с) „г 
O(c) + (HL) OUTI 
B * B-1 
HL + +1 
repeat OUTI until B=Ø OTIR 
O(c) < (HL) OUTD 
B * B-1 
HL + HL-1 
repeat OUTD until B=Ø OTDR 


# ОЕ 
ВҮТЕ5 


2 
2 
2 


N 


5/11 
5/11 
14 
14 


11 


# ОЕ 
T STATES 


11 
12 
16 


16/21 
16 


16/21 
11 
12 
16 


16/21 
16 


16/21 
111 


INDEX TO SUBROUTINES 


IS Б ë 
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ASCEND 
ASNTBI 
ATKSAV 
ATTACK 
BITASN 
BLNKER 
BOOK 
CASTLE 
CHARTR 
CONVRT 
CPTRMV 
DIVIDE 
DRIVER 
DSPBRD 
ENPSNT 
EVAL 
EXECMV 
FCDMAT 
FNDMOV 
GENMOV 
INCHK 
INITBD 
INSPCE 
INTERR 
LIMIT 
MAKEMV 
MATED 
MLTPLY 
MOVE 
MPIECE 
NEXTAD 
PATH 
PGIFND 
PINFND 
PLYRMV 
PNCK 


ON TR JO Jj e кл p [со JO [л IN [о IN (оо JW (л IN ко Jo јо JO |o [о IN ко [со [оо Jo [O p [e [A [о Io 
Š |ë [Ë | R É ë F FS 1 е j 8 R iç ië iç l SIS Is 6 Rl be ie IS Is lo IS la le iS slg 
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POINTS 49 
ROYALT 88 
SORTM 58 
TBCPCL 78 
TBPLCL 76 
TBPLMV 78 
UNMOVE 56 
vVALMOV 80 
XCHNG 47 
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